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スコ 


ー 往 


(6) 


意 


ディ スク ファ イル を OPEN し た 場合 は , END 文 , CLOSE 文 あ る い ぃ は RESET 文 に よっ て すべ て の ファ イル 
を 閉じ る まで , ディ スク を ドラ イブ か ら 抜 いた り ,。 電源 を 切っ た り し な いよ うに し て くだ さい 。 この よう な 
こと を する と , ファ イル が 破壊 され て し まい ます 。 


プロ グラ ム の 中 で , 同名 の ラベ ル を 重複 し て 使用 する と, “Duplicate label" エ ラー が 生じ ます が 。 い っ た ん 
この エラ ー が 生じ る と , 以後 大 文字 で の コマ ンド 入力 は すべ て 同じ エラ ー を 起こ し て し まい ます 。 この よう 
な と き は ,。 小文字 の 入力 に よっ て 重複 し た ラベ ル を 削除 する か , プロ グラ ム 全 体 を 削除 (new コマ ンド に よ 
る ) す れ ば も と の 状態 に 戻り ます 。 


ディ スプ レイ 画面 に 対し て エス ケー プシ ー ケ ンス を 使用 し た 場合 スクリーン エディ タ が 正常 に 動作 し な く 
な る こと と が あり ます . この よう な と き は , SCREEN 文 。WIDTH 文 あ る い は WIDTH USING 文 に よっ て , 
現在 の 画面 モー ド 以 外 の モー ド を 選択 すれ ば スク リー ン エ ディ タ は 正常 状態 に 復帰 し ます ,. た だ し , これ に 
よっ て も 正常 に な ら な いと き に は 。 BASIC を 再起 動 し な く て は な り ま せん 。 


SHELL コマ ンド に より 画面 上 に 出力 され た デー タ や 文字 に 対し て は スク リー ン エ ディ タ に よる 編集 を 加え 
る こと は で きま せん . また SHELL コマ ンド の 実行 後 , 画面 上 に 以前 より 残っ て いる BASIC の プロ グラ ム 行 
や コマ ンド 行 に 対し て スク リー ン エ ディ タ に よる 編集 を 加え て も , 正しく 修正 で き な い こと が あり ます 。 こ 
の よう な と き に は , いち ど と 画面 を クリ ア す れ ば スク リー ン エ ディ タ は 正常 状態 に 戻り ます . 
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スク リー ン エ デイ タダ タ 


N」。。-BASIC で は , プロ グラ ム を 作っ た り , コ マン ド や ステ ー ト メン ト を ダイ レク ト に 実行 きせ た りす る と き に 
スク リー ン エ ディ タ と いう 画面 編集 機能 を 使い ます . 

スク リー ン エ ディ タ は , ディ スプ レイ 画面 上 の どの 位置 に で も カー ソル を 移動 し て , 入力 , 修正 を する こと が 
で きま す .。 これ に よっ て 修正 する 行 を 改め て 最初 か ら 入 力 する 必要 が な く な り , プロ グラ ム の 入力 や 修正 も 短 時 
間 で 行う こと が で きま す . 


1.1 編集 に 使う キー の 操作 


各 キ ー の 説明 は PC-100 ユ スーザ ー ズ ガイ ド に だ 詳し く 述 べ さら れ て いま す 。 こ こ で は 簡単 に 表 に し て み ま し た 。 


wcIPCI00 1 M 
レン 


jl 
| sm 賠 陣 画 固 固 因 回 固 困 阿 天 | sm 
| 較 國 [6 リリ | 


編集 に 使う キー 


アル ファ ベッ ト の 大 文字 、 キ ー ト ッ プ の 上 段 に 書い て ある 特 
殊 文 字 の 入力 に 使用 し ます . 


アル ファ ベッ ト を 大 文字 で 入力 する と き に 使用 し ます . 


カタ カナ の 入力 に 使用 し ます . 


グラ フィ ッ ク キ ャ ラク タ の 入力 に 使用 し ます . 


カナ 漢字 変換 モー ド に 入る と き に 使用 し ます . 


キー を 押し な が ら 押 す と 、 キー に な り 、 プ 


ログ ラム の 中 断 や 、 行 の キャ ン セ ル に 使い ます . 
単独 で 押し た と き は | PAUSE | キー に な り 、 表 示 や 実行 の 一 
時 停止 に 使い ます . 


カー ソル を 水平 方 向 に 8 桁 ず つ 移 動 し ます . 


後述 の コン トロ ー ル コー ド の 入力 に 使用 し ます . 


キー の 内 容 を ユー ザー が 定義 し て 使用 し ます . 


イン サー トモ ー ド に 入る と き 、 抜 ける と き に 使用 し ます . 


| SHIFT | キー を 押し な が ら 押す と 、 キー に な り 、 カ ー 
ソル の ある 部 分 が 1 文字 削除 きれ ます . 
単独 で 押す と カー ソル の 前 に ある 文字 が 1 文字 削除 され ます . 


1 行 の 入力 に 使用 し ます . 


カー ソル を 上 下 左右 に 動か し ます . 


[SHIFT| キー を 押し な が ら 押 す と 、 キー に な り 、 画 面 


の クリ ザ を し ます 、 
単独 で 押す と キー に な り 、 カ ー ソ ル を 画面 の 左上 に 
移動 し ます . 
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1.2 ダイ レク トモ ー ド に よる 実行 


コマ ンド や ステ ー ト メン ト を プロ グラ ム に し な いで , 単独 で 実行 させ る モー ド を ダイ レク トモ ー ド と いい 
ます 。 
ダイ レク トモ ー ド で の 実行 は 。 次 の 例 の よう に 行い ます 。, 


画面 に は コマ ンド 入力 侍 ち の プロ ンプ ト が 表示 され て いま す . 


ここ で は 例 と し て , ディ スプ レイ 画面 上 に 図形 を 描く DRAW 文 を 実行 きせ て み ま し ょ う 。 次 の よう に キー 入 
力 し て くだ さい 。 [8 請 ] キ ー が , ロッ ク (押さ れ た 状態 に な っ て いる こと ) され て いれ ば 大 文字 , そう で な け 
れ ば 小文字 が 入力 され ます が , どちら で も か まい ませ ん 。 


Ok 
DRAM "U10" 軒 


ここ まで 入力 し た だ け で は , Ni。。-BASIC は 何 も 実 行 し ませ ん ,、 コマ ンド を 実行 させ る た め に は 。 [| キー を 
入力 し な けれ ば な り ま せん 。 [| キー を 押す と どう な る で し ょ う . 


Ok 
DRAM “U10" 


0k 


DRAW 文 が 実行 され て 画面 に 直線 が 描か れ ま し た . 


次 に スク リー ン エ ディ タ を 使っ て 、DRAW *U10′ を DRAW ^R10H20* に 直し て 実行 し て み ま す . 
[1] キー と | キー を 使っ て , カー ソル を U の 位置 まで 移動 させ ます . 


Ok 
DRAM" 四 0" 
Ok 


U を R に 変更 する に は , ここ で R を 入力 する だ け で いい の で す 。 


Ok 
DRAM "R 記 " 


Uk 


次 に H20 を 挿入 する た め に カー ソル を 文末 の ” の 位置 まで 移動 し ます . 


Ok 
DRAM "R10 四 
Ok 


ここ で [INS | キー を 押す こと に より カー ソル の 形 が 変わ っ て 。 インサート モー ド に な り ま す 。 


UK 
DRKAM "KR10* 


Uk 
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H20 と 入力 する と は 順に 右 に ずれ ます 。 


Ok 
DRAM "KR10H20* 


Ok 


[ 癌 キー を 入力 する と , DRAW 文 が 実行 され も , カー ソル は も と の 形 に 戻り ます . 


Uk 
DRAM "KR10H20" 


Ok 


この よう た に, 画面 に 表示 され て いる 文字 は 修正 し て 何 度 で も 実行 させ る こと が で きま す 。 修正 し な く て も , 
文 の 表示 され て いる 行 に カー ソル を 移動 し て [| キー を 入力 すれ ば ぱ ば , 何 回 で も 実行 さき せる こと が で きま す 。 


1.3 プロ グラ ム モ ー ド に よる 実行 


BASIC の コマ ンド や ステ ー ト メン ト の 集まり を 続け て 実行 きせ る と き は , プロ グラ ム を 作り ,。RUN コマ 
ンド に よっ て 実行 し ます プログ ラム を 入力 する モー ド を プロ グラ ム モ ー ド と いい 。 前 述 の ダイ レク トモ ー 
ド と は 次 の 点 が 異な り ま す 。 


1. 文 の 先頭 に , 0 65529 ま で の 数 字 を つけ て 入力 し ます . 


2 キー で 1 行 (255 文 字 以 内 ) を 入力 し ます が , 実行 は され ませ ん , 実行 する に は RUN コマ ンド また 
は GOTO 文 を 使い ます 。 


3. 回 キー に よっ て 1 行 を 入力 し て も *Ok” プロ ンプ ト は 表示 され ませ ん . 


ここ で は , プロ グラ ム モ ー ド の 入力 の 例 と し て 次 の よう な 短い プロ グラ ム を 入力 し , 変更 , 追加 , 削除 な 
どの 方 法 を 具体 的 に 説明 し ます . 


1.3.1 プロ グラ ム の 新規 作成 

まず NEW コマ ンド を 実行 し し メモ リ 上 に は プロ グラ ム が 何 も な い 状 態 に し て お いて か ら 次 の プロ グ 
ラム を 入力 し て み ま す 。 大 文字 で も 小文字 で も か まい ませ ん . 

各行 と も [| キー の 入力 に よっ て プロ グラ ム と し て メモ リ 上 に 格納 され ます (| マ ー ク は 画面 上 に は 
表示 され ませ ん )。 0 


10 FOR 1=1 TO 10 
20 NEXT 1 


30 END 


プロ グラ ム を 新しく 入力 し た り , 変更 し た り し た ら , 必ず LIST コマ ンド で 正しく 入力 され た か どう か 
を 確か め ま す 。 LIST [| と 入力 する と 次 の よう に 表示 され ます 。 


LIST 回 

10 FOR 1=1 TO 10 
20 NEXT 1 

30 END 

Ok 


も し も LIST コマ ンド に よっ て 表示 され た プロ グラ ム に 誤り が あっ た ら 。 ダ イレ クト モー ド の 項 で 述べ 
た よう に し て 訂正 し ます . この と きも [キー を 入力 し な けれ ば 何 も 変 更 し た こと に な り ま せん , プログ 
ラム を 変更 する 時 に は 必ず | キー を 入力 し な けれ ば な り ま せん , 
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RUN [| と 入力 する と 。 この プロ グラ ム が 実行 され ます . 


RUN 
UK 


も し , エラ ー メ ッ セ ー ジ が 表示 され た ら , LIST コマ ンド で プロ グラ ム を 表示 し , カー ソル を 動か し て エ 
ラー の あっ た 部 分 を 修正 し , | キー を 押し て プロ グラ ム を 変更 すれ ば いい の で す . 


1.3.2 行 の 挿入 と 追加 

BASIC の プロ グラ ム は 行 番号 の 小さ いも の か ら 順 に 実行 され ます . 従っ て , 行 番号 10 と 20 の 間 に 新 し 
く 行 を 挿入 する 場合 は , 11-19 の 行 番号 を つけ た 行 を 新しく 入力 すれ ば よい の で す 。 行 番号 30 の 後に 追 
加 す る 場合 は 31 以 上 の 行 番号 を つけ ます . 

行 番号 を 15。 16 と し て 次 の よう に 入力 し て み ま す 。 


15 CIRCLE (300.300 ),T*10 
16 BEEP 


プロ グラ ム の 変更 を 行い まし た か ら , LIST コマ ンド を 実行 し て 確か め て み ま す 。 


LIST 

10 FOR 1=1 TO 10 

15 CIRCLE (300,300),T*10 
16 BEEP 

20 NEXT 1 


30 END 
Ok 


RUN [| と 入力 し て 実行 させ て み ま し ょ う 。 も レ し エラ ー が 出 た ら カ ー ソ ル を 誤り の ある 部 分 に 移動 し て 
直し , | キー を 押し ます . 


1.3.3 行 番号 の 整理 
行 を いく つか 挿入 し て 行 番号 が 混み あっ て きた と き な ど に は , RENUM コマ ンド を 使っ て 行 番号 を 整 
理 し ます . 次 の よう に RENUM コマ ンド を 実行 し , LIST コマ ンド で プロ グラ ム を 表示 し て み ま し ょ う . 


RENUM 1000 

Ok 

LIST 

1000 FOR [=1 TO 10 

1010 CIRCLE (300,300),T*10 


1020 BEEP 
1030 NEXT 1 
1040 ENU 
Uk 


RENUM コマ ンド は , 各行 番号 の あい だ の 増分 や 、 プ ログ ラム の どこ か ら 行 番号 を つけ か える か の 指 
定 も で きま す . 詳し く は , N,。。 - BASIC リ ファ レン スマ ニュ アル を ご 覧 くだ さい 。 


1.3.4 行 の 複写 

ひと つの プロ グラ ム の 中 に 。 内 容 が 同一 の 行 を 何 箇所 か に 作る 場合 は , 行 番号 の 部 分 だ け を 書き 変え 
る だ け で 行 の コピ ー が で きま す 。 

この プロ グラ ム に 


10 FOR =1 TO 10 
20 NEXT 1 


を 追加 し た い 場 合 は , 行 番号 1000 と 1030 の コピ ー を 作れ ば よい わけ で す 。 カー ソル を 次 図 の 位置 に 移動 
し , [BS| キー を 2 回 押し て | キー を 押し て くだ さい 。 
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LIST 

1000 著 OR I=1 TO 10 

1010 CIRCLE (300,300 ) ,I*10 
1020 BEEP 

1030 NEXT 1 


1040 END 
Uk 


同じ よう に 1030 を 20 と 書き 変え て [| キー を 押し ます . 


LIST 

10 FOR 1=1 TO 10 

1010 CIRCLE (300.300),1*10 
102Z0 BEEP 

20 NEXT 1 


功 40 END 
Ok 


画面 上 か ら は 。 行 番号 1000 と 1030 は な く な っ て し まい まし た が ,。 メ モリ 上 に は 残っ て いま す 。 LIST コ 
マン ド を 実行 し て プロ グラ ム を 表示 きせ て み ま し ょ う . 


LIST 回 

10 FOR [=1 TO 10 

20 NEXT 1 

1000 FOR 【=1 IO0 10 

1010 CIRCLE (300,.300),T*10 


1020 BEEP 
1030 NEXT 1 
1040 END 
Uk 


1.3.5 行 の 削除 
1 行 ず つの 削除 は , 行 番号 だ け を 入力 し て [キー を 押し ます . 例え ば , 


1020 


と 入力 すれ ば 行 番号 1020 が 削除 され ます . 


プロ グラ ム の ある 稼 囲 を まとめ て 削除 する 場合 は DELETE コマ ンド が 便利 で す . 例え ば , 次 の よう に 
行い ます . 


DELETE 1000-1010 


プロ グラ ム 全 体 を 削除 する と き は NEW コマ ンド を 使用 し ます 。 
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1.4 便利 な エディ ッ ト 機 能 


前 の 項 ま で で ,。 スク リー ン エ ディ タ の 基本 的 な 使い 方 に つい て 説明 し まし た 。 ここ で は 。 プロ グラ ム 
作り に 慣れ た あと , より 能率 的 に スク リー ン エ ディ タ を 使い た いと き に 便利 な 機能 を 紹介 し ます 。 


1 .4.1. コン トロ ー ル コー ド 
カー ソル の 移動 や 文字 の 削除 に は , | 1 |, |』], ES な どの キー を 用 いて きま し た が 
他 に も 次 の よう な コン トロ ー ル コー ド が 使用 で きま す 。 


カー ソル の 移動 
[cTRLlHIBI 
[CTRLHlF] 
[CTRLHIKI 
[cTRLHINI 


文字 の 削除 
[cTRLHIEl 
[cTRLHIW| 
[cTRL Hz] 


カー ソル を ひと つ 前 の ワー ド に 戻す 。 
カー ソル を 次 の ワー ド に 進め る . 

カー ソル を ホー ム ポ ジ シ ョ ン に 移動 する 。 
カー ソル を 行 の 最後 に 移す . 


カー ソル の ある 位置 か ら そ の 行 の 最後 まで を 削除 する . 
カー ソル の ある と ころ か ら 1 ワー ド 削 除 す る 。 
カー ソル の ある 位置 以降 の 画面 に 表示 され て いる 範囲 を 消去 する . 


付録 の コン トコ ー ル コー ド 表 も あわ せ て ご 覧 くだ さい 。 
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1.4.2 ロー ル ア ッ プ と ロー ル ダ ウ ン 
プロ グラ ム が 数 十 行 に も わた る 場合 に は , 画面 上 に は その 一 部 し か 表示 する こと が で きま せん が , ロ ー 
ル ア ッ プ グ ロール ダ ウン 機能 を 使う と 編集 は ずっ と 楽に で きま す 。 


この 機能 は 。 着き 物 を 見 る よう に 。 画面 に 表示 され て いる 行 の 前 後 を 順に 表示 させ, 修正 する 部 分 を 
さがす た だ ため に だ 使い ます 。, 


10 / This js the 1st jine. 
20 〉 Thjs js the 2nd ine. 
30 / This js the Srd line. 
40 ′ This is the 4th line. 
50 " [his js the 5th line. 
60 "This is the 5th line. ロー ル ア ッ プ 
70 "This is the 7th 1ine. 
80 " This js the 8th line. 
90 / This is the 9th line. 


350 ′ This js the 35th line. 
360 / This js the 36th line. 
370 This js the 37th jne。 
380 < This ie the 36th 1ine。 So 
S90 This is the 39th ine. 


This js the 40th line. 
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図 の 100 行 の 位置 に カー ソル を 移動 し て 十 | | キー を 押す と 100 行 の 前 に ある 行 が 順に 表示 され 
て いき ます . これ が ロー ル ア ッ プ 機 能 で す . この よう に し て 修正 が 必要 な 行 を さき が し て いけ ば よい わけ 
窓 叶 。 

カー ソル が 画面 の 中 程 に ある 時 は それ より 上 に 表示 され て いる 行 は その まま で , カー ソル の 上 に 。, 行 
が 順に 挿入 され て いき ます . 


図 の よう に 画面 の 最終 行 に カー ソル を 移動 し て | SHIFT +| | キー を 押す と , 後 の 行 が 順に 表示 され て 
いき ます . これ が ロー ル ダ ウ ン 機 能 で す . 


カー ソル が 画面 の 中 程 に ある 場合 は それ より 上 に 表示 きれ て いる 行 は その まま で , カー ソル の 下行 
が 挿入 され て いき ます 。, 
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1.4.3 EDIT コマ ンド 

プロ グラ ム を 実行 させ て エラ ー が 出 た と き ,EDIT コマ ンド を 使っ て エラ ー の 発生 し た 行 を 表示 し , そ 
の 先頭 に カー ソル を 移動 する こと が で きま す . 

例え ば プロ グラ ム を 実行 し て 次 の よう に な っ た とき, 


RUN 
Illegal function call in 100 


Ok 
l 


EDIT . [| と 入力 する と , 次 の よう に 表示 され ます . 


EDIT . 回 
孔 0 CIRCLE(X,Y),R 


この 行 の 前 後 を 表示 する と き は 前 述 の ロー ル ア ッ プロー ル ダ ウ ン 機 能 を 使い ます . 
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1.5 スク リー ン エ ディ タ 使 用 上 の 注意 
@ プロ グラ ム を 修正 し た と き は 必ず [キー を 押さ なけ れ ば いけ ませ ん 。 キャ リッ ジリ ター ンコ ー ド は 
画面 に は 表示 され な い の で 注意 し て くだ さい 。 
@ プロ グラ ム を 変更 し た あと は , 必ず LIST コマ ンド を 実行 し て 確か め る 習慣 を つけ まし ょ う , 
@ 行 は 255 文 字 ま で の 長 さ で 作れ ます 。 それ 以上 入力 し て も 無視 され て し まい ます 。 


@ スク リー ン エ ディ タ 中 の 行末 に | キー や | TAB | キー に よる 空白 が ある と き に [BS| キー を 押す と , 空 
白 と その 直前 の 1 文字 が 削除 され ます . 
例え ば , 


10 PRINTE 曰 四 凶 本 自 


(画面 上 に は 行末 に 空白 が ある ) 
の 状態 で [BS| キー を 押す と , 


10 PRIN 自 


と な り ま す 。 


行末 に スペ ー ス コー ド が ある と き 。 例えば, 


10 PRINT.… 四 


( こ , は スペ ー ス コー ド を 表す ) 
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の と き | BS | キー を 押す と , 


10 PRINT_ 四 


の よう に スペ ー ス コー ド が ひと つ 削 除 さ れ ま す 。 


@ No。-BASIC で は , ダイ レク トモ ー ド , プロ グラ ム モ ー ド で 画面 に エスケープ シー ケン ス を 送る と , ス 
クリ ー ン エディ タ が 正常 な 動作 を し な く な る こと が あり ます の で 注意 し て くだ さい . 
これ が 原因 で スク リー ン エ ディ タ が お か し な 動作 を する と き は , WIDTH 文 」。 WIDTH USING 文 , 
また は SCREEN 文 で 現在 設定 され て いる モー ド と 異な る モー ド に だ 再 設定 する こと に よっ て 直す こと 
が で きま す 。 
この 方 法 で も 直ら な い 場 合 は 。SYSTEM コマ ンド で MS-DOS に 戻ら な けれ ば な り ま せん . 


@ SHELL 文 に よっ て , N」。。-BASIC 中 か ら MS - DOS の コマ ンド を 実行 する こと が で きま す . し か し , 
SHELL 文 に よっ て 画面 上 に 表示 され た 文字 は スク リー ン エ ディ タ に 用 いる こと は で きま せん . また 。 
SHELL 文 に よっ て 画面 が スク ロー ル し た 場合 は 画面 全体 が スク リー ン エ ディ ッ ト で き な く な り ま 
す . この 場合 は , CLS 文 な ど で 画面 を クリ ア し た 後 。 LIST コマ ンド で 再度 プロ グラ ム を 表示 し て か 
ら ス クリ ー ン エディ ッ ト し て くだ さい 。 


@ 漢字 は 2 バイ ト で 表 さ れ , 画面 上 に も 英 数 字 2 文字 分 の スペ ー ス を と っ て 表示 され ます . 
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第 どら 章 


婦 学 フ ォ ン ト の 切換 え 


PC-100 の MS-DOS で は , アプ リケーション プロ グラ ム で 3 種類 の 文字 フォ ント を 選択 で きま す 。. 
Ni。。-BASIC で も , これ ら の 文字 フォ ント を 簡単 な 方 法 で 使用 する こと が で きま す , 


文字 フォ ント は 次 の 3 種類 か ら 選 択 し て 使用 し ます . 


標準 体 
ボー ルド 体 
イタ リッ ク 体 


この うち 標準 体 の フォ ント セッ ト は ROM に 用 意 さ きれ て お り , 何 の 手続 きも な し に 使用 で きま す 。 

ボー ルド 体 と イタ リッ ク 体 は 。 MS-DOS シス テム ディ スク KK 用意 きれ て いる BOLD. SYS, ITALIC. SYS と 
いう フォ ント セッ ト フ ァイル を ,。 MS-DOS の 起動 時 に メモ リ 上 に 読み 込ん で お か な く て は な り ま せん 。 この 方 法 
に つい て は MS-DOS ユー ザー ズ ガ イド の 付録 を ご 覧 くだ さい 。 


上 記 の 手続 き を 行い , MS-DOS の 起動 時 に フォ ント セッ ト フ ァイル を 読み 込ん で ある と き , Ni。。-BASIC で は 
次 の よう に キー 入力 する こと に よっ て 文字 フォ ント の 切換 え を 行う こと が で きま す . 


ボー ルド 体 に 切り 換え る と き 

PRINT CHR$(27) 二 [1m? 
イタ リッ ク 体 に 切り 換え る と き 

PRINT CHR$(27) 二 [3m? 
標準 体 に 切り 換え る と き 

PRINT CHR$(27) 二 [0m/ 


注意 : 上 記 の 文字 フォ ント の 切換 え を 行う 場合 は 、 8 X16 ピ クセ ル の 文字 フォ ント を 選択 し な く て は な り ま せん 
(N,。。-BASIC リフ ァ レ ンス マニ ュ ア ル の WIDTH 文 , WIDTH USING 文 参 照 )。 
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マウ ス は と て も 強力 な 働き を し て くれ ます 。 めん どう な キー ボー ド 操 作 か ら ユ ー ザ ー を 解放 し て くれ ます し , 
独特 の 関数 に より 画面 処理 が と て も 楽に で きま す 。 
あな た も , マウ ス を 自分 の 手足 と し て 使い に な し て くだ さい 。 


3.1 マウ ス と は 


マウ ス は 下 に ポ ボール, 正面 に 2 つの ボタ ン が つき 。 ち ょ うど ね ずみ の よう な 形 を し て いま す . 


側 面 
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マウ ス は , 正面 を 向こう 側 に 向け て に ぎり , 二 本 の 指 で 。 2 つの ポタ ン に 触れ る よう に し て 持っ て くだ さ 
いう 。 


マウ ス を 平ら な 盤 上 で 動か す と , ボー ル が 回 転 し て 画面 上 で マウ スカ ー ソ ル が 移動 し ます ,. この と き マ ウ 
スカ ー ソ ル は マウ ス の 移動 方 向 と 対応 し た 方 向 に 動き ます . 


直 


十 x 
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マウ スカ ー ソ ル の 移動 秀 囲 は 画面 が 横 表 示 の 場合 , 横 720 ピ クセ ル ,。 縦 512 ピ クセ ル で す . 


719 


511 
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また , マウ ス に は 1 (左側 ) と 2 (右側 ) の 2 つの ボタ ン が つい て いま す . これ ら を 操作 する こと に より 。, 
さま ざま な マツ ウス 関数 の 値 (例え ば 。 カー ソル の 座標 な ど ) を と り 出 し た り , マウ ス 割 込み で 割込み 処理 を 
行っ た り で きま す . 


3.2 マウ ス の ステ ー ト メン ト 


3.2.1 初期 設定 
マウ ス の 使用 前 , 使用 後に は 必ず , 


MOUSE 0 


を 実行 し て くだ さい 。 こ れ に より 。 マウ スス テー トメ ント で 設定 され た 諸 機能 (カー ソル の 形状 ・ 移 動 
比率 *・ 移 動 範 囲 な ど ) を 初期 状態 に 戻し ます .。 例え ば , カー ソル の 形状 は 矢印 に 戻さ れ , 移動 範囲 は (0 , 
0 ) 一 (719,511) に 戻さ も ます, そして, カーソル の 表示 を と りや め 。 マ ウス の 機能 を 完全 に OFF( 停 止 ) 


状態 に し ます . 
3.2.2 カー ソル の 位置 設定 
マウ スカ ー ソ ル の 表示 ノ 非 表示 と , それ ら の 位置 を 指定 する 場合 
MOUSE 1, x y〈 カ ー ソ ルス イッ チ > 


を 使っ て くだ さい 。 指定 し た 座標 (x, y) で マウ ス を 表示 プ 非 表示 で きま す ,。 く < カー ソル スイ ッ チ > は 0 で 
非 表 示 , 1 で 表示 と な り ま す 。 
た と えば ぼ ば, 


MOUSE 1, 300, 100, 1 


と する と , マウ スカ ー ソ ル が (300,100) の 位置 に 表示 され ます . 


マウ ス を 動か す と , カー ソル の 移動 を 見 る こと が で きま す 。 
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と ころ で , パラ メー タ x と y は 省略 する こと も で きま す 。 以 下 を ダイ レク トモ ー ド で 実行 し て みて く 
だ さい 、. 


MOUSE 0 
MOUSE 1, 300, 100, 1 


! 
カー ソル を 適当 に 移動 させる. 


+ 
MOUSE 1 ,, 0 [… カー ソル は その 場所 で 非 表 示 と な る . 
MOUSE 1。 ,。 1 回 "… 非 表 示し た 場所 に 表示 され る . 
MOUSE 1, , , 0 


! 
カー ソル を 適当 に 移動 きせ る 。 


+ 
MOUSE 1, , , 1 
MOUSE 1, 300, 100, 0 [gu… (300,100) の 位置 に カー ソル は 移動 する が 非 表 示 と な っ て いる 。. 


MOUSE 1 ,, 1 lk 必 … (300,100) に 表示 され る . 


3.2.3 移動 範囲 の 設定 

初期 状態 に お ける マウ スカ ー ソ ル の 移動 範囲 は , 画面 が 横 表示 の 場合 X 方 向 が 0 て 719。 Y 方 向 が 
0 へ て 511 で す 。 画面 が 縦 表 示 の 場合 は 叉 方 向 が 0 て 511, Y 方 向 が 0--719 と な り ま す .。 この 移動 範囲 は , 下 
記 の ステ ー ト メン ト で , 自由 に 変更 で きま す . 


MOUSE 4 Xi yi X。 Ya 


これ を 実行 する こと に より , 2 点 (xi, y) と (xz, yz) を 対 角 点 と する 四角 形 の 内 部 が 。 マウ スカ ー ソ 
ル の 移動 館 囲 と し て 設定 され ます 。 に = 
ダイ レク トモ ー ド で 以下 を 実行 し て みて くだ さい 、。 


200 ト ーー 


MOUSE 0 

MOUSE 1, 0, 0, 1 

MOUSE 4, 200, 200, 400, 400 
) 

マウ ス を 移動 させ て みる 。. 


400 ト …………… 


移動 範囲 

と こと で LINE(200, 200) 一 (400, 400), 15, B と する と , マウ ス の 移動 範囲 が 設定 され て いる の が 
よく わか り ま す 。 

この 状態 で つぎ の 文 を 実行 し て み ま す . 


MOUSE 1, 700, 500, 1 


お か し いと 思い ませ ん か ? 最後 で 。 カー ソル を (700,500) に 表示 し た は ず な の だ, 全く 違っ た 場所 
に 表示 され て いま す , これ は , 指定 され た 座標 が 移動 範囲 外 の 場合 , カー ソル は 設定 され た 範囲 内 の 最 
も 近い 点 に 表示 され る よう に な っ て いる か ら で す 。 また 。, 


MOUSE 4,100,100,100,100 
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と し た 場合 , カー ソル は (100,100) に 固定 され る こと に な り ま す 。 
な お , この ステ ー ト メン ト の パラ メー タ を 省略 する こと は で きま せん . 


3.2.4 移動 速度 の 設定 
マウ スカ ー ソ ル の 移動 速度 を 変更 し た い 場 合 は 。 次 の ステ ー ト メン ト で 設定 し て くだ さい . 


MOUSE 3, < 方 向 >, < 比率 > 


く 方 向 > は 双方 向 に は 0, Y 方向 に は 1 を 指定 し ます . < 比率 > と は , マウ ス の 移動 距離 に 対す る カ ー ツ ル 
の 移動 距離 の 割合 い を 意味 し て い ぃ ます. この 値 は 0 32767 の 範囲 で , 大 きい 程 移 動 速度 が 遅く な り ま す . 
初期 設定 に お いて , この 値 は 双方 向 , Y 方 向 と も 0 と な っ て いま す . 

ダイ レク トモ ー ド で 実行 し て み ま し ょ う 。 


MOUSE 0: MOUSE 1, 0, 0, 1 
MOUSE 3, 0, 200 
! 
カー ソル を 動か し て みる 。. 
双方 向 の 移動 速度 が 遅く な っ て いる の が わか る 。. 
! 
MOUSE 3, 1, 400 
』 
カー ソル を 動か す と , Y 方 向 の 移動 速度 も 遅く な っ て いる 。 


3.2.5 カー ソル の 形状 
マウ スカ ー ソ ル の 形状 は , 次 の ステ ー ト メン ト を 使用 する こと に より , 任意 の 形 に 変え ん る こと が で き 
ます 


MOUSE 2, <AND マス ク >, <XOR マス ク >, X。, Y。 


カー ソル パタ ー ン は , 図 の よう に 16X16 ピ クセ ル で 示さ れ ま す . そ し て 。 カー ソル の 形状 は AND マス 
ク ・XOR マス ク の 2 つの マス ク で 表わさ れ ま す . 


ュー 
て Cm 


な ッ プ 
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AND マス ク と XOR マス ク の 関係 


NO | XoR | ウレ ターン | 珠 画 よ 


ステ ー ト メン ト 中 の パラ メー タ ,。 XX。 と Y。 は ,。 く XX 指示 点 > と く Y 指 示 点 > で ,. それ ぞ れ の 0 一 15 の 範囲 
で 指定 し ます . マウ ス 関 数 な ど で 用 いら れる 座標 は , この 指示 点 を 参照 する の で す 。 

カー ソル の 初期 状態 を 図示 し て お きま す の で , よく わか ら な い 人 は , 図 を じっくり と 見 て くだ さい 、。 
デー タ は 図 の よう 2 進 表現 と な っ て いま す 。 これ を 16 進 に 変換 し て 使用 し ます 。 

例 ) 計算 の し か た 


27 20 99 20 222 20 2027208899 の 9 巡 29 


り 


0III0I00 100I10 < 2 進 表記 


&H74 &HE6 で 16 進 表記 


ケー グ 

1 0 | 3F FF 
回 IF FF 

OF FF 
回 07 FF 
0 03 FF 
10 | 01I FF 
10 | 0 腰 尼 
10 0 7F 
0 0 3F 
| 0 | 01 FF 
0 | 01 FF 
0 | 3 0 FF 
過 F0 FF 
由 F8 7F 

F8 7F 
訓 F8 7F 
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どど ら どら どの どら の らら どら どら どら どの どど の ご どの どの の ご こら の こら ど どの どの の ご の 


XOR マ スク 


0 | 2 3 4 56 78 931IOHII2I3I415 


AND マス ク と XOR マス ク に より 。 左 図 の 


よう に 見 える の で す . 
初期 の 指示 点 は (0, 0) と な っ て いま す 。 


次 に , マス ク の 設定 方 法 を 説明 し ます . マス ク は ,。 32 文 字 (32X 8 ビッ ト ) を 図 の よう な 順序 で 継げ 


る こと に より , 設定 で きま す 。 初期 設定 の データ を 例 に と っ て 説明 し て お きま す . 


…AND マス ク 
&HO) …・ 


…n &HF8, &H7F, &HF8) 


CHR$(&HFF, &H3F, &HFF, &H1F, … 


A$ ニ 
X$ 


・XOR マス ク 


&HO0, &HO03, &HO, 


CHR$ (&HO0, &HO, &HO, &H40, …… 


MOUSE 2, A$, X$ 0. 0 
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次 の プロ グラ ム を 実行 する と , 十字 の カー ソル が 表示 され ます . 


AND マ スク XOR マ スク 

| | | | | 回 還 細 男 ee 
| | 了 1F 0 0 
導 目 F8 トド S C0 
画 F8 1F 3 C0 
馳 F8 1F 1 CO 
、 加古 画 2 5 
HH 本 本 衝 : 
| 0 0 7F FE 
時 HH 伸和 ま き 
トド NE 還 軒 | | | 0 0 人 FE 
MM 0 0 3 Cc0 
1 F8 「F 3 C0 
画 F8 1F 3 CO 
上 F8 1F 3 CO 
負 置 斬 較 四 F8 1F 3 C0 
F8 1F 0 0 


10 MOUSE 0:SCREEN 1.0,.0,0:CLS 

20 A$=CHR$(8&H1F,&HF8,&H1F,&HF8,&H1F,&HF8,&H1F,&HF8B、&H1F,&HFS8 
) : B も =CHR$(0.0.0,.0.0.0,.0.0,0.0,0,0) :C$=CHR$ も (&HCO ,3, 8HCO ,3, &HC 
0,3,&HC0 ,3,&HC0,3) :D$=CHR$(&HFE、&H7F , &HFE,&H7F,&HFE,&H7F ,&HF 
E, &H7F ) 

40 MOUSE 2,A$+B$+A$,CHR$( 0 ,0 )+C$+D$+C$+CHR$(0,0 ) 

50 LINE(0.0)-(719,511),12.BF 

60 MOUSE 1,360,255, 1 


3.89 マウ ス 関 数 


マウ スス テー トメ ント だ け で は , マウ ス を 使い こなす こと は で きま せん 。 マウ ス 関 数 を 使う こと に より , 
プロ グラ ム 中 で すばらし い 力 を 発揮 し て くれ ます .。 


3.3.1 現在 の カー ソル 座標 
現在 の カー ソル 座標 を 示す の は , 次 の 関数 で す . 


MOUSE (0)…… 現 在 の 又 座標 の 値 を 返す . 
MOUSE (1)…… 現 在 の Y 座 標 の 値 を 返す 、 


次 の プロ グラ ム を 実行 する と , カー ソル の 動き に そっ て 線 が 描か れ ま す . また , 左上 に 現在 の 座標 を 
表示 し ます . 


10 SCREEN 1.0.0.0:MOUSE 0:CLS 

20 MOUSE 1.0.0.1:POINT(0.0) 

30 X=MOUSE(0):Y=MOUSE( 1 ) 

40 LOCATE 1.1.0:PRINT"TX=WIX2 PTYEVW5Y 

50 MOUSE 1。,,。0:LINE-(X.Y):MOUSE 1 。,。1 
60 GOTO 30 


3.3.2 


ボタ ン の 状態 
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ボタ ン が 押さ れ て いる か 。 押 され て いな いか と いう 状態 を 調べ る に は , 次 の 関数 を 使い ます , な お 。 
ボタ ン 番 号 は 1 が 左 の ボタ ン で 2 が 右 の ボタ ン で す . 


MOUSE (2, < ボタ ン 番 号 >) 


指定 され た ボタ ン が 押さ れ て いる 場合 は 1, 押さ れ て な い 場 合 は 0 を 返し ます 。 
次 の プロ グラ ム を 実行 し て み ま し ょ う ., 画面 に カー ソル は 表示 され ませ ん が 。 ボタ ン を 押せ ば 音 が 出 
ます 。 画面 左上 に は , それ ぞ れ の ボタ ン の 状態 が 表示 され ます 。 


10 
20 
30 
40 
50 
60 


3.3.3 


MOUSE 0:CLS 3 


B1 =MOUSE(2.1):B2=MOUSE(2.2 ) 
LOCATE 1.1.0:PRINT "LEFT="iB1。 "RIGHT="iB2 
IF Bi=1 THEN PLAY"T25SSC20" 
IF B2=1 THEN PLAY"T255A20" 


GOTO 20 


ボタ ン と カー ソル の 座標 
ボタ ン を 押し た と き や , 離 し た と き の 座 標 を 調べ る に は , 次 の 関数 を 使い ます 。 


MOUSE (4, < ボタ ン 番 号 〉)… 
MOUSE (5, < ボタ ン 番 号 〉)… 
MOUSE (7, < ボタ ン 番 号 〉)… 
MOUSE (8, < ボタ ン 番 号 〉)… 


最後 に ボタ ン が 押さ れ た と き の X 座 標 の 値 を 返す . 
最後 に ボタ ン が 押さ れ た と き の Y 座 標 の 値 を 返す . 
最後 に ボタ ン が 離さ れ た と き の XX 座 標 の 値 を 返す . 
最後 に ボタ ン が 離さ れ た と き の Y 座 標 の 値 を 返す . 


炊 の プロ グラ ム で は , MOUSE(4, ) と MOUSE(5, ) を 使っ て いま す 。 左 ボタ ン を 押す と , 直前 に 
押さ れ た 座標 か ら 現在 の 位置 まで 線 を 引き ます . 右 ボ タン を 押す と 終了 し ます . 


10 
20 
30 
40 
S0 
60 
70 
80 


SCREEN 1.0,.0.0:MOUSE 0 


CLS 3:MOUSE 1,0, 


0,1:POINT(0,0) 


B1 =MOUSE( 2 。1) :B2=MOUSE( 2 2 ) 
IF B2=1 THEN MOUSE 0:END 


IF Bl=0 THEN 30 
X1 =MOUSE( 4 ,1):Y1 


=MOUSE(5,1 ) 


MOUSE 1,。,0:LINE-(X1.Y1):MOUSE 1。。。1 


GOTO 30 


次 の プロ グラ ム で は MOUSE(7, ) と MOUSE(8, ) を 使っ て いま す . 左 ボ タン を 押し な が ら マ ウス 
を 移動 きせ, ポ ボタン を 離す と , 押し た 点 か ら 離 し た 点 まで 線 を 引き ます 。 右 ボ タン を 押す と 終了 し ます 。 
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10 SCREEN 1.0.0,0:MOUSE 0 

20 CLS 3:MOUSE 1,0,.0,1:POINT(0.0) 

30 B1=MOUSE(2,1):B2=MOUSE(2,2 ) 

40 IF B2=1 THEN MOUSE 0:END 

50 IF Bl=0 THEN 30 

60 IF MOUSE(2.1)=1 THEN 60 

70 X1=MOUSE( 7 ,1):Y1=MOUSE( 8 ,1 ) 

80 MOUSE 1,,,0:LINE-(X1.Y1):MOUSE 1,,,1 
90 GOTO 30 


3.3.4 ボタ ン 操 作 の 回 数 
ボタ ン を 押し た 回 数 や 離し た 回 数 を 調べ る に は , 次 の 関数 を 使用 し ます . 


MOUSE (3, < ボタ ン 番 号 >)… 1 度 こ の 関数 を 呼び 出し て か ら 次 に 呼び 出す まで に ,。 ボタ ン の 押さ れ 
た 回 数 を 返す 。 
MOUSE (6, < ポタ ン 番 号 >)… 上 と 同様 で 、 ボタ ン が 離さ れ た 回 数 を 返す . 


ダイ レク トモ ー ド で 実行 し て み ま し ょ う 。 


MOUSE 0 

PRINT MOUSE(3, 1) 
l 

0 が 表示 され る . 

左 ボ タン を 5 回 押し て みる 。 
0) 

PRINT MOUSE(3, 1) 
! 

5 が 表示 され る . 


MOUSE(6, ) だ 関し て も 同じ で す 。 


3.3.5 移動 距離 
カー ソル が 動い た ピク セル 数 を 調べ る に は , 次 の 関数 を 使い ます 。 


MOUSE ( 9 )… 1 度 この 関数 を 呼び 出し て か ら , 次 に 呼び 出す まで , カー ソル が 動い た XX 方 向 の 移動 
距離 を 返す . 
MOUSE (10)… 上 と 同じ よう に , 方 向 の 移動 距離 を 返す 。 


ダイ レク トモ ー ド で 実行 し て み ま し ょ う 。 


MOUSE 0 
PRINT MOUSE(9): MOUSE (10) 
カー ソル を 移動 きせ る , 
0 
PRINT MOUSE(9) MOUSE(10) 
\ 
X 方 向 。 Y 方 向 の それ ぞ れ の 移動 距離 が 表示 され る . 


3.4 マウ ス 割 込み 
マウ ス の 操作 に 対応 し て 割込み を 起こ きせ, 特定 の 処理 を 行わ せる こと が で きま す 。 


対応 する 操作 


カー ソル 移動 
左 ボ タン を 押し た 


右 ボ タン を 押し た 
左 ポ タン を 離し た 
右 ボ タン を 離し た 


MOUSE (N) ON/OFF/STOP 
上 の 命令 は , 番号 N に 対応 する 操作 で の , 割込み を 指定 し ます 。 


ON…… 割 込み を 許可 
OFE…… 割込み を 禁止 
STOP… 割 込み を 保 多 


割込み が 起き た 場合 。 次 の ステ ー ト メン ト で 設定 され た 処理 ルー チン の 開始 行 へ 分 岐 し ます . 
ON MOUSE(N) GOSUB< 行 番号 > 


この ステ ー ト メン ト の N は , 前 の 表 を 参照 し て くだ さい 、。 
次 の プロ グラ ム は , すべ て の マウ ス 操 作 に 対応 し て , それ ぞ れ 違う 音 が 出 ます 。 


100 MOUSE 0:CLS:MOUSE 1.0,.0,1 
110 FOR !I=1 TO 5:MOUSE (IT) ONENEXT 
120 ON MOUSE (1) GOSUB 180 
130 ON MOUSE (2) GOSUB 190 
140 ON MOUSE (3) GOSUB 200 
150 ON MOUSE (4) GOSUB 210 
160 ON MOUSE (5) GOSUB 220 
170 GOTO 170 

180 PLAY"T100c10":RETURN 

190 PLAY"T255C10":RETURN 

200 PLAY"T255D10":RETURN 

210 PLAY"T255E10":RETURN 

220 PLAY"T255F10":RETURN 
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3.5 応用 プロ グラ ム 


マウ ス を クレ ヨン に 。 画面 を 画用紙 に し て 絵 を 描く プロ グラ ム で す 。 画家 に な っ た つも り で 絵 を 描い て く 
だ さい 。 
それ で は 。 使用 方 法 を 説明 し まし ょ う 。 
1、 プロ グラ ム を 実行 する と 。 図 の よう な メニ ュー が 表示 され 
ます 。 実行 し た い コ マン ド ( 線 ・ 円 ・ 色 塗り ) の 上 に カー 


ソル を 移動 し て , 左 ボタ ン を 押し て くだ さい 。 
END を 選ぶ と , プロ グラ ム は 終了 し ます . 


パレ ッ ト 16 色 


コマ シド 


2. LINE コ マン ド 
LINE を 選ぶ と , 図 の よう に メニ ュー が 変わ り ま す の で ,。 左 
ボタ ン で 線 の 色 と 線 の 種類 を 選ん で くだ さい 。 こと の と き , 
カー ソル の 形 が ,。 えん ぴ つ に 変化 し ます . 現在 選ん で いる 
色 は , メニ ュー の 下部 の “指定 色 ” に 表示 され ます 。 ま た 
その 下 の , X1 と Y1 は 始点 (描き 始め ) の 座標 で , X と Y 
は カー ソル の 現在 の 座標 を 示し て いま す 。 


パレ ッ ト 16 色 


始点 の 座標 


現在 の カー ソル 座標 


5 基 り WW 始点 と カー ソル 座標 
YーY|=249 の 差 


次 に カー ソル を 動か し て 左 の ボタ ン を 押す と ,。 そ と が 始点 と な り ま す 。 右 の ボタ ン で も う 1 点 を 指定 す 
る と , 線 を 描き ます . 
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線 の 種類 
LINE … で の oe BASIC の LINE 文 と 同じ で 線 を 引き ます . 始点 は 変更 し な い 限 り , 同じ 点 を 使い ます , ま 
た , メニ ュー 下 の 双 ーX1 の 値 を 0 に すれ ば 垂直 線 が , マーY1 の 値 を 0 に すれ ば , 水平 線 が 
引け ます . 
ーー 一 始点 を 固定 し て 放射 状 
の 線 を 引い た 例 
始点 始点 
CONNECT …… 一 筆 書 き の よ うに , つなが っ た 線 を 引き ます 。 左 の ボタ ン で 始点 を 指定 し て か ら , 右 の ボ 
タン を 押す だ け で どん どん 線 を 描い て くれ ます . 
始点 
BOX TTY ET 長方形 を 描く . 始点 
終点 
BOX FILL …… 塗り つぶ し た 長方形 を 描く . 始点 
QUIT を 選ぶ と , 初期 の メニ ュー に 戻り ます 。 終点 


3. CIRCLE コマ ンド 


この コマ ンド を 選ぶ と , カー ソル が コン パス に 変化 し ます . まず 色 を 選ん で くだ さい 。 それ か ら , 左 の 


ボタ ン で 円 の 中 心 を ,。 有 の ボタ ン で 円 周 上 の 1 点 を 指定 する と , 円 を 描き ます 。 始点 を 固定 し た 場合 
同心 円 が 描 り ます. 


QUIT で 初期 の メニ ュー に 戻り ます . 
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4. PAINT コマ ンド 


この コマ ンド を 選ぶ と , カー ソル が 絵の具 の チュ ー ブ に 変化 し ます . 左 の ポ ボタン で 塗り た い 色 を , 右 の 
ボタ ン で 境界 色 を 選ん で くだ さい 。 それ ぞ れ の 色 は , メニ ュー の 下 に 表示 され ます 。 カー ソル を 塗り た 
い 場 所 に 移動 きせ , 左 ポ ボタ ン を 押す と ペイ ント し て くれ ます . 


注 ) それ ん ぞ れ の カー ソル の 示す 座標 は 次 の 図 の 星 印 の 点 で す 。, 


NRN グ め め 昌 


プロ グラ ムリ スト 


1000 'X%※※※※※※※※※ 区 区 ※※X※X※X※※X※X※※※※※X※※※※※ 


110 '※XX※ ※※※ 
120 "xxx _  .OEKAKI プロ グラ ム %※※ 
130 '※※※ ※※ 


140 '※XXXXXXXX※X※※※※※※※※※※※※※※※※※※※※※※※※ 

150 "XXXXX INIT IAL IE XXX※※ 

160 WiDTH 90.25:SCREEN 1.0.0.0:MOUSE 0:CLSEDEEINT X,Y 

170 LA$=CHR$(8H7,&HEE,3,&HEC,1.&HE8.0.&8HEO,0,.&HE0,0,&HCO,0,& 
H80.0.0.0.0.1.0.3.0.7.0,.&8HFE。0,&H1E,0,.&H3F, 0 ,&H7F, 0 ) 

180 LX$=CHR$(0.0.&8HFO.0.&H28,1.&H44.2.&H82.4.6.9,&HA,8H12,8H 
12.&H24.&H24.8H58,&H48.8H44.&H90,&H46 ,&H20 ,&H61 ,&H40 ,&H71 , 8&H 
80 ,&H7C,0,8H7EF,0,0) 

190 CA$=CHR$(&HE8,&HEE,&H80 8&HEFE,0,8HEE, 1 8&HEC, 1 8HE8 ,1 ,8HEFO 
ぅ > 1.&HE0.3,&HCO 3,&HCO 7 ,&HCO ,&HE,8H80.&HIE,0.&H3E,0.&H7E,0,& 
HFF, &HC3, &HEF, &HC7 ) 

200 CX$=CHR$S(0.0,2.0,8&H3C,0 ,&HDC,0,8HBC,1.8HB4.3,8.7,8H38, &H 
E,&H70.&H14.&8HEO,&H18 .&8HCO,&H1 1 8&H80,」&8H22.0.&8H47.0,.8.0,&H10, 
0,0) 

210 PA$=CHR$(8HE8,8HEE,0,&HEC,0。&HEO 0,8HEO, 0,&H80.0.0.0,0,0 
50.0.0.0.0.0.0.&HE8,&H81,&HEE」1.8HEE」 1 8HEE」 1.8HEE,3 ) 

220 PX$=CHR$(0.0.0,2,&8HEE, 1 ,&H4A,&HA,8H4A,&HE,&H4A,&H28, 8HI4A 
> &H68.&H4A,&H6E, 8&H4A,&H6A,&8HEE,&H61.2.8H30.0,&H18,0,8HC,0,&H 
6C,0,&H78,0,0) 

230 LINE(640,0)-(640,712) 

240 LOCATE 1.82:PRINT "MENU" 

250 FOR I=17 TO 97 STEP 20 

260 LINE(640,1 )-(720,1I) 

270 NEXT I 

280 FOR Ii=660 TO 720 STEP 20 

290 LINE(T,17)-(1I,97) 

300 NEXT I 

310 FOR I=645 TO 715 STEP 20 

320 FOR J=27 TO 87 STEP 20 

330 PAINT(I,J),P,15:P=P+ 1 

340 NEXT JiNEXT 1 
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350 'XXX※※X※X COMMAND XXxx※ 

360 MOUSE 0:LINE(641.98)-(719.511),.0,BF 

370 LOCATE 6.82IiPRINT "LINE" 

380 LOCATE 7,.82:PRINT "CIRCLE" 

390 LOCATE 8,.82:PRINT "PAINT" 

400 LOCATE 9.82.0:PRINT "END" 

410 FOR I=117 TO 177 STEP 20 

420 LINE(640,1)-(720,1 ) 

430 NEXT I 

440 MOUSE 1,X,Y,1 

450 X=MOUSE(0 ) :Y=MOUSE( 1 ) 

460 IF MOUSE(2.1)=0 THEN 450 

470 IF X<640 OR Y<97 OR Y>177 THEN BEEPIGOTO 450 

480 IF Y く 117 THEN GOSUB 530:GOTO 360 

490 IF Y く 137 THEN GOSUB 880:GOTO 360 

500 IE Y く <157 THEN GOSUB 1100:GOTO 360 

510 FOR 1I=0 TO 2000:PALETTE 1 MOD 16,RNDx512:EFOR J=0 TO 100: 
NEXT JiNEXT IIPALETTEIEND 

520 '※X※X※※ 上 L IINE ※※%X※X※※ 

530 MOUSE 0:LINE(641,.98)-(719,.511),0,BE 

540 LOCATE 6,.82:PRINT "LINE" 

550 LOCATE 7,82:PRINT "CONNECT" 

560 LOCATE 8,82:PRINT "BOX" 

570 LOCATE 9,82:PRINT "BOX FILL" 

580 LOCATE 10.82.0:PRINT"QUIT" 

590 FOR I=117 TO 197 STEP 20 

600 LINE(640,1T)-(720,1) 

610 NEXT I 

620 GOSUB 1300:GOSUB 770 

630 MOUSE 2,LA$ も ,LX$,1,.16 

640 MOUSE 1,X,Y,1 

650 X=MOUSE(0):Y=MOUSE(1):LOCATE 19.84:PRINT "Xs="iXiLOCATE 2 
0.84:PRINT "Ys"iYiLOCATE 22.82:PRINT USING "X-X1 = 持 半 半 "5ABS(X 
-X1):LOCATE 23.82IiPRINT USING "Y-Y1= 持 必 "53ABS(Y-Y1) 

660 IF MOUSE(2.2)=1 THEN 780 

670 IF MOUSE(2,1)=0 THEN 650 

680 IE X>640 THEN 700 

690 X1=Xi:Y1=Y:LOCATE 16,.85:PRINT USING "= 拉 拓 "3X1ILOCATE 17, 
85:PRINT _ USING "= 持 村 "iY1:iGOTO 650 

700 IE Y>197 OR Y く 17 THEN BEEP:GOTO 650 

710 IE Y>177 THEN RETURN 

720 IF Y>157 THEN BL=NOT BL:BX=0:CO=0:LI=0:GOSUB 770:GOTO 65 
0 

730 IF Y>137 THEN BX=NOT BXI:BL=0:CO=0:L1=0:GOSUB 770:GOTO 65 
0 

740 IF Y>117 THEN CO=NOT COI:BL=0:BX=O0:LI=0:GOSUB 770:GOTO 65 
0 

750 IF Y>97 THEN LIsNOT LIEBL=0:BX=0:CO=0:GOSUB 770:GOTO 65 
0 

760 C=POINT(X-2.Y-2):GOSUB 1320:GOTO 650 

770 MOUSE 1.X。Y,0:PAINT(641,138),BXX-1.15:PAINT(641.118),CO※ 
-1.15:PAINT(641.98),LIX-1.15:PAINT(641,158),BLX-1,15:MOUSE 1 
> XY,1:RETURN 

780 IF X>640 THEN BEEP:GOTO 650 

790 X2=XiY2=Y 


33 


800 MOUSE 1,X,Y,0 

810 VIEW(0,.0)-(639,51 1 ) 

820 IF BX THEN LINE(X1,Y1)-(X2.Y2) ,C,BIGOTO 860 

830 IF BL THEN LINE(X1 ,Y1)-(X2.Y2) ,C。BF:GOTO 860 

840 LINE(X1,Y1)-(X2,Y2) ,C 

850 IF CO THEN X1=X2:Y1=Y2:LOCATE 16.85:PRINT USING "= 持 持 半 "5 
X1:LOCATE 17,85:PRINT USING "= 半 拉 半 "5Y1 

860 VIEW:MOUSE 1,X2.Y2,1:GOTO 640 

870 'XXXX※X CIRCL し PD ※X%※※※ 

880 MOUSE 0 

890 LINE(641.98)-(720,511) ,0,.BF 

900 LOCATE 6,82.0:PRINT "QUIT" 

910 LINE(640,.117)-(720,117) 

920 GOSUB 1300 

930 MOUSE 2,.CA$,CX$,1.,16 

940 MOUSE 1 ,XX,Y,1 

950 X=MOUSE( 0 ) :Y=MOUSE( 1):LOCATE 19.84:PRINT "X="iXILOCATE 2 
0。84:PRINT "Ys"iYiLOCATE 22.82:PRINT USING "X-X1 = 壮 半 "5 ABS(X 
-X1):LOCATE 23.82:PRINT USING "Y-Y1= 壮 手 "5ABS(Y-Y1 )5 
960 IF MOUSE(2.2)=1 THEN 1030 

970 IF MOUSE(2,1)=0 THEN 950 

980 IE X>640 THEN 1000 

990 X1=X:Y1=Y:LOCATE 16,85:PRINT USING "= 持 手 "35X1:LOCATE 17, 
85:PRINT USING "= 手持 "5Y1:GOTO 950 

1000 IF Y<17 OR Y>117 THEN BEEP:GOTO 950 

1010 IF Y>97 THEN RETURN 

1020 C=POINT(X-2。Y-2):GOSUB 1320:GOTO 950 

1030 IF X>640 THEN BEEPI:GOTO 980 

1040 X2=X:Y2=Y 

1050 MOUSE 1.X,Y,0 

1060 VIEW(0.0)-(639,511) 

1070 CIRCLE(X1,Y1) ,。SQR((X1-X2)X(X1-X2)+(Y1-Y2)%(Y1-Y2) ) ,C,」。 
99 

1080 VIEWiMOUSE 1.X2.Y2,1:GOTO 940 

1090 '※%※X※※ PAIINT XX%※※※ 

1100 MOUSE 0:LINE(641.98)-(720,.511),0,BF 

1110 LOCATE 6.82.0:PRINT"QUIT" 

1120 LINE(640,117)-(720,117) 

1130 GOSUB 1310:GOSUB 1330 

1140 MOUSE 2,PA$,PX$,1.16 

1150 MOUSE 1 XX,Y,1 

1160 X=MOUSE(0 ) :Y=MOUSE( 1 ) 

1170 CC=POINT(X-2,Y-2 ) 

1180 IF X<640 THEN 1240 

1190 IF Y<17 OR Y>117 THEN 1160 

1200 IF MOUSE(2.2)=1 THEN C1=CCI:GOSUB 1340:GOTO 1160 
1210 IF MOUSE(2,.1)=0 THEN 1160 

1220 IF Y>97 THEN RETURN 

1230 C=CC:GOSUB 1320:GO1TO 1160 

1240 IE MOUSE(2.1)=0 THEN 1160 

1250 MOUSE 1.X,Y,0 

1260 VIEW(0,0)-(639,.511 ) 

1270 PAINT(X,Y),C,C1 

1280 VIEW:GOTO 1150 
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1290 "XXxXXX COLOR 表示 xxxXxx 

1300 LOCATE 16,.83:iPRINT"X1= "53X1 ELOCATE 17.83:PRINT"Y1= "jiY1 
1310 LOCATE 13,82:PRINT" 指 ":LOCATE 14.82:PRINT" 定 ":LOCATE 15 
>82:PRINT" 色 " 

1320 LINE(650.210)-(670.240),15,B:LINE(651 ,211)-(669,239) ,C, 
BEF : RETURN 

1330 LOCATE 13,87:PRINT" 墳 ":LOCATE 14,.87:PRINT " 界 ":LOCATE 15 
。87:PRINT" 色 " 


1340 LINE(690,210)-(710,240),15,B:LINE(691,211)-(709,239) ,C1 
, BF :RETURN 


35 


第 4 章 グラ フィ ックス 


此 品 間 


デラ フィ ックス 


4.1 画面 に つい て 


N,。。-BACIC は , SCREEN 文 を 使っ て 画面 モー ド , 画面 ポジ ショ ン を 選択 する こと が で きま す 。 また , 
N」。。-BACIC は リス ト な どの キャ ラク タ を 出力 する 画面 と , 点 や 線 な どの グラ フィ ックス を 出力 する 画面 を 
別 の 画面 と し て 設定 する こと は で きま せん 。 


4.1.1 画面 モー ド 

画面 モー ド に は 。 白黒 モー ド と カラ ー モ ー ド が あり ます . この 指定 は , SCREEN 文 の 第 1 パラ メー 
タ で 行い ます . 白黒 モー ド の 場合 (カラ ー モ ー ド の 場合 も , 画面 は 1 枚 の み で その 両方 を 同時 に 使用 す 
る こと は で きま せん . 


SCREEN 〔 第 1 パラ メー タ )〕 


SCREEN 0 


SCREEN | 


4.1.2 画面 ポジ ショ ン 

N,。。-BACIC は , ディ スプ レイ 画面 に 対し て 。 キャ ラク タ や グラ フィ ックス を 横長 方 向 に 表示 し た り 
縦長 方 向 に 表示 し た りす る こと が で きま す . この 画面 ポジ ショ ン の 設定 は , SCREEN 文 の 第 2 パラ メー 
タ で 行い ます 。 


横 方 向 縦 方 向 
SCREEN , [第 2 パラ メー タ ] SCREEN ,0 SCREEN ,| 
横 X 縦 (ピクセル) 720X512 5I2X720 


ディ スプ ブレ イ 画 面 


(5II,719) 
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この よう に 横 表 示 , 縦 表 示 の 選び 方 に よっ て 座標 系 も 異な り ま す . また , 画面 内 に 表示 され る キャ ラ 
クタ の 行 数 と ケタ 数 も 横 表示 か 縦 表示 か に よっ て , 次 の よう な 組合 せ が 可 能 で す , これ ら の 設定 は 
WIDTH 文 に よっ て 行い ます . 


横 表 示 ( 桁 メ 


る 


) 


縦 表 示 ( 桁 X 行 ) 


横 表 示 の 初期 状態 は 80 行 X25 桁 
縦 表 示 の 初期 状態 は 64 行 X45 桁 
どの よう な 設定 の 状態 で あっ て も , 画面 ポジ ショ ン を 変え る と , 初期 状態 に 設定 され ます 。 


た だ し 。 WIDTH USING 文 を 使用 すれ ば 。 これ 以外 の 表示 方 法 を 設定 する こと も 可能 で す .。 
4.2 ウィ ンド ウ と ビュ ー ポ ー ト 


4.2.1 ワー ルド 座標 系 と スク リー ン 座 標 系 


ディ スプ レイ 画面 上 の 座標 系 に は , スク リー ン 座 標 系 と ワー ルド 座標 系 の 2 つの 座標 系 が あり ます . 
この 2 つの 座標 系 は 。 グラ フィ ッ ク に 対し て 有効 で す 。 
スク リー ン 座 標 系 


一 致し て お り , 座標 上 の 各 点 が 画面 の 1 ピク セル と 常に 一 致し て いま す . つまり, 左上 の 頂点 を (0, 
0) と し 右 下 の 頂 点 を (719。 511) と する 座標 系 で す . 


ビュ ー ポ ー ト を 設定 する 際 。 用 いら れる 座標 系 で す . その 物理 的 な 大 き さ は , ディ スプ レイ 画面 と 
(0.0) 


スク リー ン 座 標 系 


(719, 511) 
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ワー ルド 座標 系 
ユー ザー が 使う こと の で きる 最大 の 座標 系 で , BACIC が 設定 し た 仮 空 の 座標 で す . 


ワー ルド 座標 系 


(Wx1, Wy1) 


| Wx2 一 Wx1| <9.99999E 十 62 
|Wy2--Wy1| <9.99999E 十 62 


( Wx2, Wy2) 


ワー ルド 座標 系 の 大 き さ は 縦 ・ 横 と も に 一 9.99999E 十 62ー 十 9.99999E 十 62 の 範囲 まで 許さ れ ま す . 
この 範囲 内 の 領域 な ら , どこ で も 表現 する こと が で きま す . た だ し , 水平 方 向 の 幅 (Wx2 一 Wx1) 
及び 垂直 方 向 の 幅 (Wy2 一 Wy1) が , 9 .99999E 十 62 を 越え て は な り ま せん . PSET( 点 を 打つ ), LINE 
( 線 を 引く ) な どの ほとん どの グラ フィ ックス 命令 が , ワー ルド 座標 に 対し て 働き ます 。 


4.2.2 ウィ ンド ウ 

ワー ルド 座標 と は , 元々 仮 空 の も の で あり , 我々 が 実際 に 見 る こと の で きる 座標 は スク リー ン 座 標 で 
す . し た が っ て ユー ザー は 。 ワー ルド 座標 上 の 任意 の 座標 を 指定 し て ,。 スク リー ン 座 標 上 に 表示 領域 と 
し て 割り 当て な く て は な り ま せん . その た め の 操 作 を 行う の が , WINDOW 文 で す , つま り , WINDOW 
文 に よる 指定 に より , ユー ザー は スク リー ン の 物理 的 な 大 き さ に 制限 され な い ス ペー ス で , 線 を 引い た 
り , グラ フ や や 物 を 描く こと が で きま す , この 指定 され た ワー ルド 座標 上 の 領域 を ウィ ンド ウ と 呼び ます .。 
WINDOW 文 に は , SCREEN オプ ショ ン の 有無 に つい て 2 つの 指定 方 法 が あり , その 初期 状態 は スク 
リー ン 座 標 系 ((0, 0) と (719, 511) を 対 角 点 と する 四角 形 ) と 同じ で す . 
引数 を 用 い ず に WINDOW 文 を 実行 する と 初期 状態 に な り ま す が 。 その 場合 WINDOW 変換 は 行い ま 
せん 。 その 場合 の 座標 系 は 次 の 例 の よう に な り ま す 。 


WINDOW 
和 ディ スプ レイ 画面 


( 0, 0) 


(719, 511) 
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WINDOW 文 の 指定 方 法 
① WINDOW (Wx1, Wy1) 一 (Wx2。 Wy2) 
ワー ルド 座標 系 
ディ スプ レイ 画面 (ワー ルド 座標 ) 


(Y) ( Wx2, Wy2) 


( Wx1, Wy1) 


( Wx2, Wy2) 


( Wx1, Wy1) ( 叉 ) 


WINDOW 指定 を 行う と 。 ワー ルド 座 標 系 の (Wx1, Wy1) か ら (Wx2, Wy2) の 領域 を ウィ ンド 
ウ と し て いま す .。 その 際 , ワー ルド 座標 の Y 軸 が 反転 する の で 。 ディスプレイ 画面 上 に 正しい デカ 
ルト 座標 を 表示 さき せる こと が で きま す 。 


② WINDOW SCREEN (Wx1, Wy1) 一 (Wx2,。 Wy2) 


ワー ルド 座標 系 


ディ スプ レイ 画面 (ワー ルド 座標 ) 


( Wx1, Wy1) (Y) 


(Wx2, Wy2) 


この SCREEN オプ ショ ン つ き の 指 定 と WINDOW 指定 の 違う 点 は , Y 軸 が 反転 し な いと いう こと 
1 


次 に 各々 の 場合 の 例 を 示し ます 。 
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例 1) WINDOW (一 1, 一 1) 一 (1, 1) 
を 実行 する と 。 デ ィ ス プレ イ 画 面 は 次 の よう に な り ,。 Y 軸 は 反転 し ます 。 


(Y) (GA) 


( 0, 0) 


(一 一 小 ) を ( 叉 ) 


例 2) WINDOW SCREEN (一 1, 一 1) 一 (1, 1) 
を 実行 する と , ディ スプ レイ 画面 は 次 の よう に な り , Y 軸 は 反転 し ませ ん 。 


( 二 す 9 ーーー*(X ) 


( 0, 0) 


(Y) (1、1 ) 


4.2.3 ビュ ー ポ ー ト 

ウィ ンド ウ は , ワー ルド 座標 系 に お いて ユー ザー が どの 領域 を 表示 領域 と する か を 設定 する も る の で し 
た が , ビュ ー ポ ー ト は ,WINDOW 文 に よっ て 指定 され た 領域 を ディ スプ レイ 画面 の どこ に 表示 させ る 
か の 設定 で す 。 つ まり , ワー ルド 座標 系 の 各 ピ クセ ル が ビュ ー ポ ー ト と いう 物理 的 な 座標 系 に 写像 され 
る わけ で す .。 
この 操作 を VIEW 文 に よっ て 行い ます が , その 指定 方 法 に は SCREEN オプ ショ ン の 有無 に より 次 の 2 
通り が あり ます 。 また 。, 初期 状態 は スク リー ン 座 標 系 と 同じ で す . 


③① VIEW (Sx1, Sy1) 一 (Sx2, Sy2) 
0 ミ Sx1, Sx2 ミ 719 
0 ミ Sy1, Sy2 ミ 51 1 


と の 場合 , スク リー ン 座 標 系 の (Sx1, Sy1) お よび (Sx2, Sy2) を 対 角 点 と する 四角 形 が ビュ ー ポ ボー 
ト と な り ま す . ピュー ポー ト 内 の 座標 系 は ,。 WINDOW 文 に 引数 が ある 場合 と な い 場合 で は 異な り 
ます 。 
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@ WINDOW 文 の 引数 が な い 場 合 (初期 状態 ) 
ピュー ポー ト 内 の 座標 は スク リー ン 座 標 系 で 。(Sx1, Sy1) を 基点 と する 相対 座標 で す . 


例 ) WINDOW 
VIEW (320, 50) 一 (520, 150) 
スク リー ン 護 標 系 


ビ ピュー ポート 
( 0, 0 ) 


(320, 50) 


(520, 150) (200, 100) 


(719, 511 ) 


また , 次 の よう な 命令 

VIEW (100, 100) 一 (500, 400) 
に 対し て , 

PSET (0, 0) 


を 指定 する と , この 点 は ディ スプ レイ 画面 上 の (100, 100) の 位置 に 現われ ます 。 


ディ スプ レイ 画面 
( 0, 0 ) 


(100, 100) 
PSET( 0, 0 ) * 


avg Srwiidiszaasatso 由 


(500, 400) 


(719, 511) 


@ WINDOW SCREEN (Wx1,Wy1) 一 (Wx2, Wy2) 
ビ ピュー ポー ト 内 の 座標 系 は ワー ルド 座標 と な り , ビュ ー ポ ー ト に お ける 最も 一 般 的 な 形 で す 。 


例 ) WINDOW SCREEN (Wx1, Wy1) 一 (Wx2, Wy2) 
VIEW (Sx1,Sy1) 一 (Sx2,Sy2) 
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ワー ルド 座標 系 


スク リー ン 褒 標 系 
(0, 0) ビュー ポー ト 


(Sx1, Sy1 ) 


(719, 511) 


( Wx1, Wy1) 


(Wx2, Wy2) 


次 に 示す 例 1 で 。 ウィンド ウ が スク リー ン 座 標 系 と 一 致す る 特別 な 場合 を 挙げ , 例 2 で は , 一 般 的 
な 場合 を 挙げ ます . 

また 。WINDOW (Wx1, Wy1) 一 (Wx2。 Wy2) で 設定 する と ピュ ー ポ ー ト も デカ ルト 座標 に な り ま 
科 


例 1) WINDOW SCREEN (0, 0) 一 (719, 511) 
VIEW (320, 50) 一 (520, 150) 


スク リー ン 座 標 
(0,0) ピュー ボー ト 


(320, 50) 


(520,150) (719, 511 ) 


(719, 511) 
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例 2) WINDOW SCREEN (100, 一 100) 一 (100, 100) 
VIEW (320, 50) 一 (520, 150) 


ワー ルド 座標 


スク リー ン 座 標 
( 0.0) ビ ピュー ポート 
(一 100, 一 100) 


(-100, -100) 
(0,0) 


(100.100) 


(719, 511) 


② VIEW SCREEN (Sx1, Sy1) 一 (Sx2。Sy2) 


ワー ルド 座標 系 スク リー ン 座 標 系 (ビュ ー ボ ポート ) 


切抜き 窓 


(0,0) 


(Wx1',Wy1) 


(Wx2, Wy2) 


(719, 511) 


この 場合 , スク リー ン 座 標 系 の (Sx1, Sy1) と (Sx2, Sy2) を 対 角 点 と する 四角 形 は , 前 で 述べ 
た ビ ピュー ポー ト と は 異な り 単なる \ 切 抜き 窓 ? の 働き を し ます 。SCREEN オプ ショ ン を 付加 する と , 
WINDOW 文 で 指定 し た 領域 (ウィ ンド ウ ) は 常に ディ スプ レイ 画面 の 全体 (0。0) と (719, 511) 
を 対 角 点 と する 四角 形 ) に 写像 され ます . つま り , 今 ま で の ビュ ー ポ ー ト の 考え 方 で いけ ば , ディ 
スプ レイ 画面 の 領域 が ビュ ー ポ ー ト の 役目 を する わけ で す .。 そし て この “切抜き 窓 ” を 指定 する こ 
と に よっ て 。 その ウィ ンド 内 の ワー ルド 座標 系 の 表示 領域 が 制限 され る こと に な る わけ で す , わか 
りや すく する た め に 。, 実際 に 例 を 用 いて 説明 し ます 。 次 の 例 1 と 例 2 を 比べ て みて くだ さい 。 


例 1) 


例 2) 


( 


WINDOW 
VIEW SCREEN (50, 50) 一 (300, 300),, 15 
LINE (100, 100) 一 (250, 250) 


(0.0) ス クリ ー ン 座標 
(0.0) ワ ー ル ド 座 標 


ヽ 


ワー ルド 座標 (719、511 ) 


(719, 511) ス クリ ー ン 座標 


WINDOW SCREEN (一 1000, 一 1000 ) 一 (1000, 1000) 
VIEW SCREEN (50, 50) 一 (300, 300),, 15 

LINE (100, 100) 一 (250, 250) 

0.0) ス クリ ー ン 座標 


(一 1000, 一 1000 ) ワ ー ル ド 座 標 


トコ 


(300.300) 


ワー ルド 座標 (1000、1000) 


(719, 511) ス クリ ー ン 座標 
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例 2 で は 画面 上 に 直線 が 現われ ませ ん 。 実は この 直線 は 図 の 点線 の と ころ に 位置 し て いる の で す 。 


つま り , 


この 切抜き 窓 ” だ けが 表示 可能 な 領域 と な る わけ で す 。 


また , 次 の よう な 命令 


VIEW SCREEN (100, 100) 一 (500, 400) 


対し て 


(WINDOW は 初期 状態 ) 


4.3 座標 の 指定 の 仕方 


2 つの 座標 , 絶対 座標 と 相対 座標 に つい て 説明 し ます 。 絶対 座標 は 最も 一 般 的 な 座標 の 指定 で す 、 ま た 点 
を 打つ (PSET), 線 を 引く (LINE) な ど に 使う 座標 の 指定 に は 。 相対 座標 に よる 方 法 も 使う こと が で きま す . 


4.3.1 絶対 座標 に よる 指定 の 仕方 

絶対 座標 と は , 双 座 標 , Y 座 標 が 決ま る こと に よっ て 一 意 的 に 決ま る 座標 の こ と で す . 下図 の よう に 常 
に 左上 の 頂点 が (0, 0) で , 右 下 の 頂点 は (719。511) と な り ま す . 絶対 座標 に よる 指定 と は , この 座 
標 系 を 使っ て (X, Y) の 位置 を 表わす 方 法 を いい ます 。 


絶対 座標 
719(X) 


"(X,Y) 


511 
(Y) 


絶対 座標 に よる 指定 は 。 すべ て ( 双 , Y) と いう 形 に な っ て 表 わ れ ます 。 


4.3.2 相対 座標 に よる 指定 の 仕方 

相対 座標 と は , 座標 系 内 に ある 1 点 を 基点 と し た 時 X 方 向 、 Y 方 向 に どれ だ け 相 対 的 た 移動 する か 
に よっ て 決め られ る 座標 で す . 相対 座標 に よる 指定 の 仕方 と は , この 相対 座標 を 使っ て 位置 を 表わす 方 
法 を いい ます . 

例え ば , 次 の よう な 座標 系 が あり , 基点 を A (100, 100) と し ます . 

この 場合 左上 の 頂点 P は (一 100, 一 100), 右 下 の 頂点 Q は ( 十 619, 十 411) と な り ま す 。 

P Q ん 
絶対 座標 (0, 0) (719, 511) (100, 100) 
相対 座標 (一 100, 一 100) ( 十 619, 十 411) (0。0) 


相対 座標 


719(X) 
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前 図 で , 絶対 座標 で は A' は (400, 400) で す が , A を 基点 と し た 相対 座標 で 表わす と A' は ( 十 300, 十 
300) と な り ま す . また , A" を 基点 と する と , 新しい 相対 座標 が 作ら れ , A は (一 300, 一 300), P は (一 
400, 一 400) と な り ま す ., 

この 指定 方 法 の 優れ て いる 点 は , 相対 移動 量 (x, y) を 常に 同じ 値 で あっ て も , 基点 の 位置 を 動か すこ 
と に よっ て 違っ た 位置 を 表現 で きる と いう こと で す 。 Ni」。。-BASIC の グラ フィ ッ ク 命 令 で 相対 座標 を 
使っ て 座標 指定 を 行う 場合 は 


STEP (x y) 


が 許さ れ て いる の は , 


PSET PRESET 

LINE PAINT 

CIRCLE GET@ (但し 終点 座標 の み ) 
の 6 つ で す 。 


例え ば , 三角 形 を 絶対 座標 と 相対 座標 を 使っ て 描い て みる と ,。 


絶対 座標 10 PSET (100,100) 相対 座標 10 PSET 100, 100) 
20 LINE 一 (50, 400) 20 LINE 一 STEP (一 50, 300) 
30 LINE 一 (300, 400) 30 LINE 一 STEP (250, 0) 


と な り , どちら も 同じ 三角 形 を 描き ます . 


プロ グラ ムリ スト 


100 CLS:PRINT TIME$:KK=5/6:LL=100:RR=15:RL=15 
110 DIM SS(20) ,I(20) 

130 ANGLE=90:N=0:PP=ATN( 1 )x8/360 

140 LINE(360,510)-STEP( 0 ,-LL) 

150 SS(N) =LLXKK 

160 SIZE=SS(N) 

170 IF SIZE く 20 THEN 270 

180 AD=2xRR+RL:GOSUB 300 

190 I(N)=0 

200 AD=-RR-RL:GOSUB 300 

210 し INE-STEP(-DXxS1IZE,-DYwS1ZE) 

220 N=N+ 1 :SS(N)=SIZExKK:GOTO 160 

230 N=N- 1 :SIZE=SS(N) 

240 LINE-STEP(DXxSIZE,DYxSIZE) 

250 I(N)=I(N)+1:IF I(N)<2 THEN 200 

260 AD=RL:GOSUB 300 

270 IF N<>0 THEN 230 ELSE PRINT TIME$:END 
300 ANGLE=ANGLE+AD 

310 DX=COS(ANGLEXPP) :DY=SIN(ANGLExPP ) 

320 RETURN 
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4.4 カラ ー パ レッ ト 


PALETTE 文 を 使っ て 画面 の 色 。 画面 上 の 文字 や 図形 の 色 を 指定 し た り , 一 度 指定 し た 包 を 変え る こと が 
で きま す . 


4.4.1 パレ ッ ト 番 号 

画面 に 表示 され る 図形 の 最小 単位 を ピク セル (画素 ) と い ぃ いま す . 1 ピク セル は 4 ピット か ら 構 成 さ 
れ , その 4 ビッ ト の 組合 せ (2* 三 16 通 り ) に よっ て 色 を 指定 する 番号 が 決ま り ま す .。 この 16 種 類 の 番号 を 
パレ ッ ト 番 号 と いい ます 。N,。。-BASIC で の 色 の 指定 は , これ ら の パレ ッ ト 番 号 を も つ パ レッ ト で 行わ れ 
の 


4.4.2 カラ ー コ ー ド 
各 パ レッ ト は , R ( 赤 ), G ( 緑 )、 B ( 青 ) の 3 色 の カラ ー コ ー ド を も っ て いま す 。 各色 3 ピット か 
ら 構 成 さ れ , この 3 ビッ ト の 組合 せ (23= 8 通り ) で 色 の 輝度 を 表わし て いま す , 


例 ) B ( 青 ) の カラ ー コ ー ド 


輝度 が 上 が る 
22 衣 89 
時 
最も 暗い 色 
最も 明る い 色 高い 
2 進数 表示 8 進数 表示 


この よう に 1 色 に つき 8 段階 の 輝度 を 表現 する こと が 可能 な の で , 8 進数 を 用 いる と 便利 で す . 従っ て 
カラ ー コ ー ド 全体 と し て は , 8*=512 種 類 の 色 を 表現 する こと が で きま す 。 
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パレ ッ ト 番 号 と カ か ラー コード の 関係 は 次 の よう に な り ま す 。 


ーーーーー 720 ピ クセ ル 
1 ピク セル 4 ピット 


ロ | | | | | (2 16 販 り の 組合 せ が 可 能 


512 ビ ピクセル 


カラ ー パ レッ ト 


この よう に 1 ピク セル を ぬり つぶ す 場 合 , その ピク セル が も っ て いる 4 ビッ ト で パレ ッ ト 番 号 を 表 わ 
し ます . 16 個 の パレ ッ ト 番 号 に どの カラ ー コ ー ド を 割り 付け る か は , PALETTE 文 を 使っ て 次 の よう に 
設定 し ます . 


例 ) パレ ッ ト 番 号 1 に 最も 明る い 青 を 設定 する 場合 


パレ ッ ト 番 号 


PALETTE 1.&O700 
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初期 状態 の パレ ッ ト 番 号 と それ に 対応 する 色 の 関係 は 次 の よう に な り ま す 。 


一介 還 一 肖 四 一 肖 和 一! 


2 


必 1COI ト | つつ | OO の IN| の 


| ビビ | らら どら | つど | デビ | ビ | ビビ | ビビ | OO どど | らら ど 
一 朋 L こ 旧 一 月 L こ 区 一 月 生 に 四 拓 肖 還 に: 目 委 一 月 四 に ) 目 世 一 月 皮 こ ) 目 世 一 肖 和 こ ) 上皮] 


忌 ら | 戸 | | ピ ビ | OO ど | ビ | ピロ | の OO| つど | の 
ー| | ピ | ら | ピロ |O ら || ピ | ロロ |o ら | ロビ 


ーー 
〇 1 

上 
四 骨 
ェ ー 
有 
+ー 


プロ グラ ムリ スト 
100 SCREEN 1.,0,0,1 
110 CLS 
120 LOCATE 1.1.0 
130 FOR J=0 TO 1 
140 FOR I=0 TO 7 


150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


LINE(72※1 ,100※J) -ST 
NEXT 1 

NEXT J 

FOR J=0 TO 1 

LOCATE S※J+5 

FOR Is0 TO 7 

PRINT _ USING " 半 提 
NEXT Ii 

PRINT 

NEXT J 

LOCATE 20,20:PRINT 


Pi:PRKINT "、 8&0"i:PRINT 


260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


LOCATE 21.10:INPUT 
IF P<0O OR P>15 THEN 
LOCATE 22.10:INPUT 
IF B<0 OR B>7 THEN 
LOCATE 22.10:INPUT 
IF G<0O OR G>7 THEN 
LOCATE 22,10:INPUT 
IF R<0O OR _R>7 THEN 
C0=(BxX8+G)※8+R 
PALETTE P.CO 

GOTO 250 


ーー 上 一 月 記 一 月 上 一 包皮 一 月 式 一 】 
mm らら) らら | ロロ | ol ロー ご | らら | っ | ロリ ロー| の 6 
デ | ビビ | (らら | ら | どの | らら |O ら どら どの つど | つら | つら | の | の ら 
"ピピ ロー らら | ら | ら | ロロ ロロ ーーー ご | らら | らら | らら 
ココ | つど | ど | く SG3 ぴ で G! の O の 1996|1 品 ロロ OO つの!1 品 品 〇 | の 
-a コ IIANIARIO」 らら | の 196IoGiolgogdlm コ (ご | つの | の | の ら 


ュ = さ 


BBP( 72。72) 。J%8+1 BE 


"さり ※8+] 5 


"PALETTE "::PRINT USING 
USING "##, "iRiGiB 

トド ザン バー 令 7?"P 
260 

ゅ プル ー の 輝度 は ? ",B 

LOCATE 22,28:PRINT " 
"グリ ー ン の 将 度 は ? ",G 

LOCATE 22,28:PRINT " 9 
"レッ ド の 交 度 は ?",R 

LOCATE 22,28:PRINT " 


叶 時 い 


・GOTO 280 
:GOTO 300 
:GOTO 320 
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複数 の パレ ッ ト 番 号 に 1 つの カラ ー コ ー ド を 対応 きせ る こと は で きま す が , その 聞 は で きま せん , 


例 ) 100 'XXXX※ PALETTE XXX※% 
110 SCREEN 1,.0:CLS 
120 FOR =1 TO 50 
130 X=RNDx719 
140 Y=RNDx51 1 
150 R=RNDx80 
160 C=INT(RNDX7+1 ) 
170 CIRCLE(X,Y) ,R,C 
180 PAINT(X,Y),C 
190 NEXT I 


この プロ グラ ム の 実行 後に , 
PALETTE 1, &O005 


を 実行 する と ,。 パ レッ ト 番 号 1 の 色 は 瞬時 に 赤 に 変わ り ま す . 


4.5 ライ ンス タイ ル と タイ リン グ 


4.5.1 ライ ンス タイ ル 

ライ ンス タイ ル と は LINE 文 に ある 機能 で 引く 線 の 型 態 を 設定 し ます . これ を 設定 する た め に は , 
16 ビ ピット で 表現 可能 な 数 (&H0--&&HFFFF) の 範囲 内 の 値 を 用 らい ます. ライ ンス タイ ル は 16 進 数 で 指定 
し な く て も か まい ませ ん が , 16 進 数 で 表現 する と 便利 で す ( 詳 細 は , Ni。。-BASIC リ ファ レン スマ ニュ ア 
ル の LINE 文 の 項 を 参照 ). 

例え ば , 


LINE (0, 250) 一 (719, 250), 3, , &HFF00 


を 実行 する と , 下図 の よう な 点線 が 引か れ ま す 。 


( 0,250) (719, 250) 


ライ ンス タイ ル を 多 HFF00 と 設定 する と 次 の よう に な り ま す 。 


ライ ンス タイ ル (&HFF 0O 0O) 


1 1 1 1|1 1 1 1|10 0 0 0|10 0 0 0| ビッ トペ パタ ー ン 


2 の 2 2 9 
トー 


F F 0 0 16 進 数 表示 
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つま り , この ライ ンス タイ ル が (0, 250) て (719。250) まで 繰り 返さ れる た め 。 図 の よう な 点線 が 現 わ 
れ ま す . 


4.5.2 タイ リン グ 

タイ リン グ と は PAINT 文 に ある 機能 で 。 タイ ルス トリ ング に よっ て 設定 され た 模様 (タイ ル ) で , 
指定 領域 内 を 埋め る と き に 使い ます (タイ ルス トリ ング に 関す る 詳細 は Ni。。-BASIC リ ファ レン スマ 
ニュ アル の PAINT 文 の 項 を 参照 )。 

タイ ル の 大 き さ は 。 幅 ( 横 方 向 ) は 常に 8 ピッ ト と な り , 長き ( 縦 方 向 ) は 白黒 モー ド の 場合 も , カ 
ラー コー ド の 場合 も 1 て 64 バ イト と な り ま す 。 


白黒 モー ド の 場合 
タイ ル バ イ ト の ビ ピット 


(0, 0) 白黒 モー ド の 場合 は , 横 8 ピク セル を 1 パイ ト と 扱い ま 
8 す 。 8 ピク セル の 表現 の 仕方 は 。 前 に 述べ た ライ ンス タ 
イル の 考え 方 と 同様 で す . 
タ 
Y イ 
増 ル 
加 バ 
イ 
ト 
( 0,31) 
(相対 座標 ) 


X 増加 


次 に 挙げ る 例 は , 画面 上 を “XX? 模様 で ねり つぶ し ます . 


例 ) PAINT (320, 100), CHR$(&H81) 填 CHR$(&H42) 寺 CHR$(&H24) CHR$(&H18) 十 
CHR$(&H18) 填 CHR$(&H24) 十 CHR$(&H42)CHR$(&H81 ) 


また この と き , 


PAINT (320, 100), CHR$ (&H81, &H42。 &H24, &H18, &H18。&H24, &H42, &H81 ) 


と 表現 する こと も で きま す 。 


CHR$(&H81) タイ ル バ パ イト 1 
CHR$(&H42) タイ ル パ バイ ト 2 
CHR$(&H24) タイ ル バ イ ト 3 
CHR$(&H18) タイ ル バ パイ ト 4 
CHR$( 多 耳 18) タイ ル バ パイ ト 5 
CHR$(& 耳 24) タイ ル バ イ ト 6 
CHR$(&H42) タイ ル バ イ ト 7 
CHR$(&H81) タイ ル バ パイ ト 8 
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基点  ~ タ イル バイ ト の ビ ピット 


相対 座標 (X,Y 7 6 5 4 3 2 ae 
本 本 CA 9 3 カラ ー モ ー ド の 場合 は 。 4 パイ ト で 横 8 ピク セル を 表 わ 


し ます 。 つま り 。 縦 方 向 に ロバ パイ ト の タイ ル を 指定 する 


(0, 0) に は 4*n バ イト (1S ミ nS16) 必要 と な り ま す , 各 ピ 
クセ ル に お ける 色 の 指定 方 法 は , カラ ー パ レッ ト の 考え 
方 と 同様 で す が ,。 ここ で は 横 8 ピク セル の 人 色 指定 を 同時 
行い ます 。 
61 
( 0,16) 遇 
63 
64 


( 0.16) 人 郊 ) 長 ( 7,16) 


例え ば , 1 パイ ト の タイ ル を 考え て み ま し ょ う .。 1 バイト に は 8 ピク セル ある の で , 各々 の ピク セル 
に 下図 の よう な パレ ッ ト 番 号 の 色 で ぬり つぶ すこ と に し ます 。 


タイ ル バ イ ト の ビッ ト 


76543210| | タイ ル バ パイ ト 


も 。 証 。 イ 古志 年 剤 
か 軍 東和 人 。 定 。 肖 0 
7 。 W 。 二天 部 凍 学 
地 馬 半 。 胃 % 系 訓 i 
錠 省 当 動 0 捕 ま 味 評 
中世 。 仙 前 WW 捕 。 生 。 部 
十 光 。 提 光 W 旭 。 還 
狼 。  。 馬 条 まま 半 敵 
多 逢 。 拓 sa 巴 還 信吉 革 癌 
MD]、 時 MP MP 。 旨 還 。 0 交 
人 ・ 


ピク セル 番号 || 2 3 4567 
パレ ッ ト 番 号 |3 3 3 4 5678 
1 ピク セル は 4 ビッ ト も っ て いる の で , その 4 ビッ ト を 使っ て 指定 し た い 色 を 表現 し ます . つま り , 1 番 の ピク 


セル に つい て 考え る と , この ピク セル を パレ ッ ト 番 号 3 の 色 で ぬり つぶ す に は 。 3 の 値 を この 4 ピッ ト で 表現 す 
る と いう こと で す , し た が っ て 下図 の よう に な り ま す 。 


29X1 填 9 X1 十 22X0 十 2? 十 0 三 3 


| 番目 の ピク セル 


95 


8 つの ピク セル 全体 に つい て は 次 の よう に な り ま す 。 


ピク セル 番号 1 2 3 4 5 6 7 8 


ン ン ン ン ン ン ン 人 請 
パレ ッ ト 番 号 回 思 思 KEIaE3 2 


MD00 有 


し た が っ て , 8 ピク セル の 色 を 決め る タイ ルス トリ ング は 次 の よう に な り ま す . 


CHR$ (&HEA) 十 CHR$ (&HE6) 十 CHR$ (&H1E) 十 CHR$ (&HO01) 
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4.6 応用 プロ グラ ム 


4.6.1 パレ ッ ト 応 用 プロ グラ ム 
PALETTE 文 を 使っ た 応用 プロ グラ ム で す . B( 青 )。G ( 緑 ), R ( 赤 ) の 輝度 を 変え て 。 いろいろ な 中 
間 色 を 出す こと が で きま す . この プロ グラ ム は 512 色 を すべ て 簡単 に 表示 する こと が で き , また その デー 


タ も 表示 し て くれ ます . 
1. プロ グラ ム を 実行 する と 。 次 の よう な 画面 が 表示 され ます 。 


決定 ブル ー の 円 レッ ド の 円 


Ne 
ヒン 】 


パレ ッ ト の 色 


adD 貴 ー ミ で 


ブル ー, グリ ー ン , レッド パレット の グリ ー ン の 円 
の 割合 い グ ラフ 8 進数 デー タ 


カー ソル を 。 変更 し た い パ レッ ト 番 号 (0 15) の 上 に 動か し て 左 ボ タン を 押し て くだ さい 。 す る 
と , その パレ ッ ト の 現在 の B・G・R の 状態 が 、 右 の 円 に 表示 され ます 。 


み 。 


3 原色 ( 青 , 緑 , 赤 ※) の うち , 輝度 を 変更 し た い 色 の 上 に カー ソル を 移動 し ます 。 輝度 を 増やし た 
めい 場合 は 左 の ボタ ン を 。 減ら し た めい 場 合 は 右 の ボタ ン を 押し て くだ さい 。 それ ぞ れ の 動作 に 応じ て , 
選択 され て いる パレ ッ ト 番 号 の グラ フ , 及び DATA が 変化 し ます . 輝度 は 8 進数 (0 て 7) の 8 段階 
で 表示 され ます 。 0 が 最も 暗く , 数 字 が 増え る ご と に 明る く な り , 7 で 最も 明る く な り ま す 。 


3。 


57 


59 


| Pokcfe ン を < 


3 つの 円 が 重なっ て いる 場所 の 色 が , その パレ ッ ト の 色 と な り ま す . また , 図 の よう に 円 が 重なっ て 
いる 場所 で ボタ ン 操 作 を 行なう と , 重なっ て いる 3 原色 が すべ て 変化 し ます 。 例え ば , 中 心 で ボタ ン 
操作 を 行っ た 場合 。B と G と R が 同時 に 変化 し ます 。 


B と R 


B と G と 民 


4. 変更 し た パレ ッ ト の 色 を 見 た い 場 合 は 。 カー ソル を 決 (決定 ) の 上 に 移動 きせ, 左 ポ ボタ ン を 押し て 


くだ さい 。 す る と 。 円 が 消え て その 場所 に 16 色 すべ て が 表示 され ます 。 表示 され て いる 8 進数 DATA 
に 対応 し て , 右 横 に その デー タ か ら 成 る 色 を 表示 し ます . 気に入っ た 色 が で きた 場合 は , その デー タ 


を 書き 留め て お きま し ょ う . 
も と の 画面 に 戻り 。 きら に パレ ッ ト を 変更 し た い 場 合 は 左 の ボタ ン を , 終了 し た い 場 合 は 右 の ボタ 


ン を 押し て くだ さい 、。 


5. デー タ の 使用 法 を 説明 し ます 。 
使い た い デ ー タ が ヾ 514” で , 変更 し た い パ レッ ト 番 号 が 3 の 場合 


10 PALETTE 3, &O514 
と し て くだ さい 。 
6. ボタ ン 操 作 の まとめ 


パレ ッ ト 番 号 の 選択 
輝度 の 変更 左 ボ タン 
決 (16 色 表示 ) の 実行 


プロ グラ ム の 終了 ー 一 右 ポ ボタ ン 
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プロ グラ ムリ スト 


100 '※XXXXX※※※※※※※※※※※※※※※X※※※※※※※※ デ 区 区 区 区 区 区 


110 '※※※ ※※ 区 
120 '※※※ PALETTE プロ グラ ム ※※※ 
130 '※※※ ※※※ 


] 4 !※※※ 光 迷 革 潤 ※※ 革 区 ※※ 区 革 ※ 革 区 革 ※ 革 区 天光 基 甘 基 基 天天 区 


150 SCREEN 0,0,0,1:COLOR 1.0:CLS:LOCATE 5,1:PRINT" と の プロ グ 


ラム の 使い 方 は 、 N100-BAS 1 C ユ ー ザ ー ズ ガイ ド に 記載 され て 
いま す 。":FOR I=1 TO 1000:NEXT 


160 IF INP(&H22) AND 2 THEN BEEP:BEEP:BEEP:PRINT:PRINT:PRINT 


カラ ー デ ィ ス プレ イ 及 び カ ラー ポ ボード を 使用 し 
て くだ さい 。": BEEP:PRINT:PRINT" プロ ゲラ ム を 
終了 させ て いた だ きま す 。":END 


170 MOUSE 0:DIM PN(15,2),PD(15):SCREEN 1.0.0.0:PALETTE 
180 DATA 0,.0,.0,5.0.0.0.5.0.5,5.0.0.0.5,5.0.5,0,5,5,5,5,5 
190 DATA 3.3.8347.0.0.05 7 03 アッ 7。 (0 開 0.0, 7 ュ 750。7 ア 0 7 7374 7 


200 FOR 1=0 TO 15:A=64 

210 FOR J=0 TO 2 

220 READ PN(1I,J):PD( ET)=PD(T)+PN(T,J)※A 

230 A=A/8:NEXT:NEXT 

240 WIDTH USING 0,18,30,0,711 

250 LOCATE 1,1,0 

260 FOR 1=2 TO 17 

270 IF 1 く 12 THEN LOCATE 1I,2:PRINT 1-2:GOTO 290 
280 LOCATE I,1:PRINT 1-2: 

290 NEXT 


300 LOCATE 1,2:PRINT " 決 ":LOCATE 1,4:PRINT"B"ELOCATE 1,6:PR 


INT"G":LOCATE 1,.8:PRINT"R "ELOCATE 1,11:PRINT "DATA" 
310 LINE(10.0)-(160,0) 

320 FOR Y=31 TO 511 STEP 30 

330 LINE(10,Y)-(160,Y) 

340 NEXT 

350 LINE(10.0)-(10,511) 

360 FOR X=52 TO 160 STEP 36 

370 LINE(X。0)=(X,511) 

380 NEXT 

390 LINE(268,0)-(268,.S11) 

400 FOR I=0 TO 15:X=54:FOR J=0 TO 2 

410 FOR H=59+30x1 TO 59+30xI-4x(PN( Ii,J)-1) STEP -4 
420 IE PN(I,J)=0 THEN 440 

430 LINE(X,H)-STEP( 32 。-2) ,15,BF 

440 NEXT:X=X+T36:NEXT:NEXT 

450 FOR Y=2 TO 17 

460 LOCATE Y,11:PRINT RIGHT$( "00"+0CT$(PD(Y-2 ) ) , 3) 5} 
470 NEXT 

480 GOSUB 1120 

490 MOUSE 1.0,.0,1 

5000 'X※XXX※ IMIA 1 N XX※※※ 

510 X=MOUSE(0):Y=MOUSE(1) 

520 IE X<52 THEN 560 

530 1E X>270 THEN 660 

540 GOTO 510 


59 


60 


550 'XXX※※ 選択 XXXX※※ 

560 IF MOUSE(2,1)=0 THEN 510 

570 IF Y<31 THEN GOSUB 1180 

580 CPN=INT((Y-32)/30 ) 

590 B=PN(CPN, 0 ) :G=PN(CPN, 1 ) :R=PN(CPN, 2 ) 

600 YB=59+30xCPN-4xB:XBs54 

610 YG=59+30*CPN- 4xG:XG=90 

620 YR=59+30xCPN- 4xR:XR=126 

630 GOSUB 1020 

640 GOTO 510 

650 "XXXXX CIRCLE ※X%X※※ 

660 IF MOUSE( 2, 1 )=MOUSE(2.2) THEN 510 

670 C=POINT(X-2.Y-2):IE C=0 OR C=15 THEN 510 

680 IF MOUSE(2,1)=1 THEN AD=1 

690 IF MOUSE(2.2)=1 THEN AD=-1 

700 ON C GOSUB 730,800,.870.890.960.980,1000 

710 GOTO 510 

720 "BLUE 

730 B=B+AD 

740 IF AD=1 THEN IF B>7 THEN B=7 ELSE LINE(XB,YB)-STEP(32 ,-2 
),15,BF:PD(CPN ) =PD(CPN)+64:YB=YB-4 

750 IF AD=-1 THEN IF B<0 THEN B=0 ELSE LINE(XB,YB+ 1 ) -STEP(32 
>3) ,0,BF:PD(CPN) =PD(CPN)-64:YB=YB+4 

760 PN(CPN, 0 ) =B: LOCATE CPN+2。11:PRINT RIGHT$("00"+O0CT$(PD(CP 
N) ) ,3) 5 

770 GOSUB 1020 

780 RETURN 

790 'GREEN 

800 G=G+AD 

810 IF AD=1 THEN IF G>7 THEN G=7 ELSE LINE(XG,YG)-STEP(32 ,-2 
),15,BF:PD(CPN ) =PD(CPN)+8:YG=YG- 4 

820 IF AD=-1 THEN IF G<0 THEN G=0 ELSE LINE(XG,YG+ 1 ) -STEP(32 
>3) ,0,BF :PD(CPN ) =PD(CPN) -8:YG=YG+4 

830 PN(CPN, 1 )=GiLOCATE CPN+2,11:PRINT RIGHT$( "00"+O0CT$(PD(CP 
N) ) ,3) 

840 GOSUB 1020 

850 RETURN 

860 'SIAN 

870 GOSUB 730:GOSUB 800:RETURN 

880 'RED 

890 R=R+AD 

900 IF AD=1 THEN IE R>7 THEN R=7 ELSE LINE(XR, YR ) -STEP( 32 。-2 
) , 15, BF :PD(CPN ) =PD(CPN)+1: YR=YR-4 

910 IF AD=-1 THEN IF R<0 THEN R=0 ELSE LINE(XR,YR+1 ) -STEP(32 
33) ,0。BF:PD(CPN ) =PD(CPN) - 1 : YR=YR+4 

920 PN(CPN,2)=R:LOCATE CPN+2,11:PRINT RIGHT$("00"+0CT$(PD(CP 
N) ) ,3) 

930 GOSUB 1020 

940 RETURN 

950 'MAZENDA 

960 GOSUB 730:GOSUB 890:RETURN 

970 'KIIRO 

980 GOSUB 800:GOSUB 890:RETURN 

990 "WHITE 

1000 GOSUB 730:GOSUB 800:GOSUB 890:RETURN 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
ぅ 120 
1140 


4。15: 
6,15: 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 


CILS 


1250 
1260 


'"※※※※※ P ピ PALETTE SU ※※X※※※ 


PB=Bx64: 


PALETTE 
PALETTE 
PALETTE 
PALETTE 
PALETTE 
PALETTE 
PALETTE 
RETURN 


PG=GxX8: PR=R 
1,PB 

2.PG 
3,PB+PG 
4,PR 
5,PB+PR 

6 ,PG+PR 
7,PB+PG+ PR 


'X%※XX※※X 円 描き XXxxx 


PALET TE 


LINE(269.0)-(719.511),0,BF 
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CIRCLE(495,280),.120:CIRCLE(445.200),120:CIRCLE(S45 ,200 ) 


PAINT(400,130).1,15:PAINT(500,.130),5.15:PAINT(600,130) , 
PAINT(400,250),3,15:PAINT(500.250),7.15:PAINT(580,250 ) , 
PAINT(500,340),2,15 


FOR TI=0 
RETURN 


TO 7:PALETTE 1,0:NEXT 


' XXX※X※ 決定 XXXX% 


MOUSE 1.。,0:LINE(269.0)-(719,511),.0,.BF 
FOR Il=0 TO 15:PALETTE IJPD(I)ENEXT:1=0 


FOR Q=0 


TO 4000:NEXT 


FOR Y=31 TO 481 STEP 30 
LINE(270,Y)-(711,Y+30 ) , 1 , BE 
1=1+1:NEXT 

IF MOUSE(2.2)=1 THEN PALETTEISCREEN 1.0.0.0:WIDTH 80,25 


END 


IF MOUSE(2,1)=0 THEN 1240 
GOSUB 1120:MOUSE 1,0,0,1:RETURN 
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4.6.2 タイ リン グ 応 用 プロ グラ ム 


PAINTT 文 の タイ リン グ の 機能 を 使っ た プロ グラ ム で す . マウ ス を フル 活用 し て いる の で , タイ ル パ 


ター ン の 作成 が と て も 楽に で きま す . また , デー タ の 表示 も 自動 的 に 行っ て くれ る の で , めん どう な 計 
算 も し な く て すみ ます , ぜひ 一 度 使っ て みて くだ さい 。 


タイ ルセット の 


作成 用 ます 目 


カラ ーI6 色 


62 


タイ リン グ 
表示 用 ます 有 目 


ーー ま ー 散 ーーー 表 ーーー ネ ーーー 散 ーー 表 ーー ネ ー】 
ーー 一 ー 胡 一 胡 一 友 ー 衣 ー 衣 ーー 大 ーー 友 一 広一 散 ー 散 ーー ス 


セツ ト 数 の 変更 . 


le6 進 デー タ 


プロ グラ ム を 実行 する と 。 セッ ト 数 を た ず ね て くる の で 1 へ 16 の 数 字 を 入力 し て くだ さい 。 する と 。 


図 の よう な 画面 が 表示 され ます . 


1. 


タイ ルセット の 作り 方 
カー ソル を メニ ュー 最上 部 に 移動 し , 左 ボ タン で 色 を 選び ます , そし て , 作成 用 ます 目 に 移動 さ 
せ 。 塗り た い 場 所 の 上 で 左 ボ タン を 押し ます . 


タイ リン グ の 実行 方 法 
右 ボ タン を 押し ます ., する と 作成 用 ます 目 の 右 が わ に , 作成 され た パタ ー ン の 16 進 デー タ が 表示 
され て ゆき 。 それ が 終わ る と 右 の ます 目 に 作成 し た タイ ルセット で ペイ ント し ます 。 


メニ ュー の 説明 (コマ ンド お よび 色 の 選択 は 全て 左 ボ タン で す ) 


@ 現在 の 色 の … の oooe… 現在 選ん で いる 色 を 表示 し ます 。 

@ 一 色 塗 りつ ぶし …… 作 成 用 ます 目 を , “現在 の 色 ” で 塗り つぶ し ます 。 

AA ます 目 に ある “現在 の 色 ” を , 指定 し た 色 に 変え ます . 右 ポ タン を 押す と 実 
行き され ます 。 


@ セッ ト 数 の 変更 …… タ イル セッ ト の 数 を 変更 し た いと き に 選び ます 。 
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デー タ の 見 か た 

表示 され る アー タ は “ ヾ &H* を 省略 し た 16 進 数 で す . デー タ の 上 の 数 字 は , 表示 用 ます 目 の 番 号 で 
あり , これ に よっ て 現在 どの パタ ー ン の デー タ が 表示 きれ て いる か が わか り ま す . 気 に 入っ た パタ ー 
ン の デー タ は , きち ん と 記録 し て お きま し ょ う 。 


特殊 操作 

すでに ペイ ント され て いる 表示 用 ます 目 の 上 へ カー ソル を 移動 きせ, 左 ボ タン を 押す と 。 そこ と の 
タイ ル パ タ ー ン と デー タ が 表示 され ます ,。 デー タ を 記録 し 忘れ た 場合 や 。 同 じ よ うな パタ ー ン を 使 
いた い 時 な ど ,。 非常 に 便利 で す 。 


実行 例 
文 色 の 塗り 方 
[[ 左 ボ タン を 押す 内 
文 色 の 選び 方 


現在 の 人 色 “ メニ ュー に 表示 され る 


廊 メ ニュ ー の 選び 方 


セツ ト 婦 恋 更 友 ポ タン を 押す 


娘 カ ー ソ ル の 示す 位置 


N 


① プロ グラ ム を RUN し た ら , 4 || と 入力 し , 図 の パタ ー ン を 作成 し て タイ リン グ を 実行 し て くだ 
きい 。 
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② 次 に 黒 を 選ん で か ら “一 色 塗 りつ ぶし ” を 実行 し て くだ さい 。 全部 消え を まし た か ? それ で は , 
シア ン で 塗り つぶ し て か ら , 図 の パタ ー ン を 作成 し 。 タイ リン グ を 実行 し まし ょ う . 


⑨ セッ ト 数 を 増やし て み ま し ょ う . バセット 数 の 変更 ? を 選ん で か ら , 8[ 問 と 入力 し て くだ さい 。 そ 
れ か ら 図 の パタ ー ン を 作成 し 。 タイ リン グ を 実行 し まし ょ う 。 どう で すか ? 先程 と は だ いぶ 違い 
ます ね . この よう に 。 セッ ト 数 が 多けれ ば , 複雑 な パタ ー ン や , 対称 な パタ ー ン が 作成 し や すい 
の で す 。 


④ こん ど は “人 色 変換 ?" を し て み ま し ょ う 。③ で 作成 し た パタ ー ン の 黒 を 灰色 に 変え ます 。 まず, 黒 
を 選ん で か ら \ 色 変換 * を 選択 し て くだ さい 。 カー ソル が カラ ー の 中 に 閉じ 込め られ まし た ね . 
それ で は , 左 ボ タン で 灰色 を 選ん で か ら , 右 ボ タン で 実行 し まし ょ う 。 どう で すか ? 黒 が 灰色 
に 変わ っ た で し ょ う 。 つ いで に タイ リン グ を 実行 し て 前 の 模様 と 比べ て み ま し ょ う . 

⑥ セッ ト 数 を 16 に し て , 図 の パタ ー ン で タイ リン グ を 実行 し て くだ さい 。 
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どう で すか ? くじ ゃ く の 羽 みた いで すね 。 この パタ ー ン か ら , と の よう な タイ リン グ を 想像 で 
きま すか ? 

⑥ 表示 用 ます 目 1 - 0 の タイ ルセット と デー タ を 表示 し て み ま し ょ う . カ ー ソ ル を その 場所 に 移動 さ 
せ , 左 ポ タン を 押し て くだ さい 、。 
どう で すか ? 1-0 の パタ ー ン が 復元 で きま し た ね . それ で は , シア ン を 黄色 に , 赤 を マゼンダ 
に 変更 し て タイ リン グ し て み ま し ょ う 。 


7. デー タ の 使い 方 
次 の よう な デー タ を 使用 する と し ます 。 


12 10 0 12 一 > &H12, &H10, &H0, &H12 
24 20 0 24 一 * &H20, &H20, &HO, &H24 
4() 40 0 48 一 > &H40, &H40, &H0, &H48 
90 80 0 90 一 > &H90, &H80, &HO, &H90 


10 TI$=CHR$(&H12.&8H10,&HO ,&H12、8&H20 ,&H20 , 8&HO ,&H24.&H40 
, &H40 ,&HO,&H48,&H90,&H80,8HO,&H90 ) 
20 PAINT(100,100),TI$ 


この 様 に すれ ば よい の で す 。 詳しく は , 4.5.2 タイ リン グ を 参照 し て くだ さい 。 


8. ボタ ン 操 作 の まとめ 

・ 色 の 選択 

*・ メ ニュ ー の 選択 

・ 特 殊 操作 

・ タ イル セッ ト の 作成 
・ タ イリ ング の 実行 
・ 色 変換 の 実行 


左 ボ タン 


右 ポ タン 1 
以上 で 説明 は 終わ り で す , この プロ グラ ム を 使っ て 。 い ろ い ろ な 模様 を 作り 出し て くだ さい 。 また 。, 


PALETTE の 色 を 変更 し て , 中 間 色 の タイ リン グ を 行う の も お も し ろ い で し ょ う . ぜ ひび 挑戦 し て みて くだ 
さい 。 ただし, パレット 番号 の 0 と 15 は 変更 し な いで くだ さい , 
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プロ グラ ムリ スト 


10 00 '※※※※※※※ メ メメ ※ メ メメ メメ ※※ メ ※※ メ メメ ※※※ メ メメ ※※※※※※※※ 


110 「'※XX※ XX※※ 
120 '※X※% タイ リン グ プロ グラ ム X%※ 
130 '※X※X※ ※※※ 


1 人 4 人 0 ' 迷 ※ 光 区 ※ 区 革 光 区 区 区 区 区 ※ 区 区 ※ 区 区区 

150 SCREEN 0。0,0,1:COLOR 1.0:CLS:LOCATE 5,1:PRINT" こ と の プロ グ 

ラム の 使い 方 は 、N100-BAS 1C ユ ー ザ ー ズ ガイ ド に 記載 され て 

いま す 。":EFOR 1I=1 TO 1000:NEXT 

160 IF INP(&H22) AND 2 THEN BEEP:BEEP: BEEP:PRINT:PRINT:PRINT 
カラ ー デ ィ ス プレ イ 及 び カ ラー ポー ド を 使用 し 

て くだ さい 。":BEEP:PRINT :PRINT" プロ グラ ム を 

終了 させ て いた だ きま す 。 ":END 

170 'XXX※※ 初期 設定 基 天天 区 

180 SCREEN 1,0,0,0:WIDTH 80,25:MOUSE 0:CLS:LOCATE 1,1,0 

190 NX=400:NY=51:Q=0:Z1=0:Z2=0 

200 DIM D$(15) ,C$(7) ,TD$(19,2) 

210 DATA 0000,0001,0010.0011.0100.0101.0110,.0111,1000,1001,1 

010.1011。1190。1101.1110.1111 

220 EOR Il=0 TO 15:READ D$(I):NEXT 

230 FOR 1I=399 TO 719 STEP 80:LINE(1I,50)-(1,500) :NEXT 

240 FOR I=50 TO 500 STEP 90:LINE(399, 1 )-(719,1) :NEXT 

250 A=0:FOR I=420 TO 660 STEP 80:PUT@(I,20)," "TSTRS(A)D+" 

0,15:AsA+1:NEXT 

260 A=0O:FOR 1I=70 TO 430 STEP 90:PUT@(370,1),STR$ も (A) ,12,14:A= 

A+1:NEXT 

270 PUT@(20,402), "現在 の 色 ":PUT@(20,427) , "一色 塗 りつ ぶし ":PU 

T@(20,452 ) , " 色 変 換 ": PUT@(20,477 ) "セツ ト 数 の 変更 " 

280 FOR I=400 TO 500 STEP 25:LINE(20,1)-(180,1):NEXT:LINE(20 

, ヵ 400)-(20,500):LINE(180,400)-(180,500):LINE(110,400)-(110,42 

5 ):LINE(110,450)-(110,475) 

290 FOR I=20 TO 180 STEP 20:LINE(I,350)-(1I,390) :NEXT:FOR 1I=3 

50 TO 390 STEP 20:LINE(20,1)-(180,1):NEXT 

300 As0:FOR J=360 TO 380 STEP 20:FOR I=30 TO 170 STEP 20:PAI 

NT(I,J) ,A,15:A=A+1:NEXT : NEXT 

310 GOSUB 610 

320 ON ERROR GOTO 1150 

330 MOUSE 1.0,0,1 

340 "xxxxXX MAIN ROUTINE xxxxx 

350 X=MOUSE( 0 ) : YsMOUSE( 1 ) :CC=POINT(X-2,Y-2) 

360 IF MOUSE(2,2)=1 THEN GOTO 690 

370 IF X>399 AND Y>50 AND Y<500 AND MOUSE( 2 , 1)=1 THEN GOSUB 

930 

380 IF X<20 OR X>179 THEN 350 

390 IF Y<340 AND Y>340-20xN AND MOUSE( 2,1)=1 THEN 450 

400 IF Y<390 AND Y>350 THEN 510 

410 IF Y<450 AND Y>425 THEN 550 

420 IF Y<475 AND Y>450 AND MOUSE( 2 ,1)=1 THEN GOSUB 1080 

430 IF Y<500 AND Y>475 AND MOUSE(2,1)=1 THEN GOSUB 610 

440 GOTO 350 

450 IF MOUSE(2,1)=0 THEN 350 

460 MOUSE 1,,,0 

470 XX=INT((X-20)/20):YY=INT((Y-21 )/20 ) 

480 LINE(XXx20+21,YYx20+21) -STEP(18,18),C,BF 

490 MOUSE 1,,,1 

500 GOTO 350 
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S510 IF MOUSE(2,1)=0 THEN 350 
520 MOUSE 1.,,。0:C=CCELINE(111.401)-(179。424),C。BEIMOUSE 1,,, 


530 GOTO 350 

540 'XXXXX% 一 色 SUHB XXXX※ 

550 IF MOUSE(2,1)=0 THEN 350 

560 MOUSE 1,,,0:FOR 1=340-(20xN)+1 TO 321 STEP 20 

570 FOR J=21 TO 161 STEP 20 

580 LINE(J,I)-STEP( 18,18) ,C,BE 

590 NEXT:NEXT:MOUSE 1,,,1:GOTO 350 

600 'xxxxX セツ ト 数 変更 SUB xxxxx 

610 MOUSE 1,,,0:LINE(0,0)-(350 ,341 ) ,0,BF 

620 LOCATE 1,1,0:INPUT "セツ ト 数 ( 1-16 ) ":N:N=INT(N) 

630 IF N<1 OR N>16 THEN BEEP:GOTO 620 

640 LINE(0,.0)-(350,341 ),0,BE 

650 FOR IlI=20 TO 180 STEP 20:LINE(T,340-20xN)-(T,340):NEXT 
660 FOR I=340 TO 340-20xN STEP-20:LINE(20,1)-(180,1):NEXT 
670 MOUSE 1,,,1:RETURN 

680 'XXxXxXX タダ イリ ング SUB xxx※ 

690 TD$(Q.2)=" "ETD も (Q 0)=" リ "ETILE$ も =" "ELY=17-N 

700 MOUSE 1,,。,0:LINE(190.0)-(310.350).0,BEIMOUSE 1 ,」,1 

710 PUT@(210,(16-N)xX20)」。 リ "4STR$(Z1)+"0 "0,15:PUTQ(265,(16-N 
)%20),。" "TSTR$(Z2)+ リ 0 リツ 12,.14 

720 FOR PY=330-20%※(N-1) TO 330 STEP 20 

730 IT=0:LY=LY+1:LX=24 

740 FOR PX=30 TO 170 STEP 20:C$(1)=D$(POINT(PX。PY ) ) : エエ +1 NE 
XT PX 

750 FOR J=4 TO 1 STEP -1 

760 K=128:TI=0O 

770 FOR I=7 TO 0 STEP -1:TI=TITVAL(MID$(C も $( 二 ) ,J,。 1 ) ) xK:K=K/2: 
NEXT 1 

780 TD$(Q,0)=TD$ も (Q,0)+MKI ま (TIT):TILE$=TILE$+CHR も (TI ) 

790 LOCATE LYJLX:PRINT HEX$(TT)+" "iiLX=LX+3 

800 NEXT JiNEXT PY 

810 FOR PY=330-20X(N-1) TO 330 STEP 20 

820 FOR PX=30 TO 170 STEP 20 

830 TD$(Q,2) =TD$(Q, 2)+HEX$(POINT (PX , BY ) ) 

840 NEXT:NEXT 

850 TD$(Q, 1 ) =STR$(N) 

860 MOUSE 1,,,0:LINE(NX.NY) -STEP(78,.88),.0,BE:PAINT(NX ,NY ) , 了 TI 
LE$,15:MOUSE 1,,,1 

870 NX=NX+80:IF NX>710 THEN NX=400:NY=NY+90 

880 IF NY>500 THEN NY=51 

890 Q=Q+1:IF Q=20 THEN Q=0 

900 Z1=Z1+1:IF Z1=4 THEN Z1=0:Z2=Z2+1:1F Z2=5 THEN Z2=0 

910 GOTO 350 

920 "xxXXX DATA 摘 出 SUB xxxXx※ 

930 XX=INT((X-400)/80):YY=INT((Y-50)/90):W=XX+YYx4:IEF VAL(TD 
$(W,1) )=0 THEN BEEP: RETURN 

940 IF XX=Z1 AND YY=Z2 THEN BEEP:RETURN 

950 N=VAL(TD$(W。1)):MOUSE 1,,,0:GOSUB 640 

960 PUT@Q(210,(16-N)x20)」" "4 は STR$S(XX)+ リ 7 リリ 0,15:PUTQ(265,(16-N 
)*20)。" "4STR も (YY)+ す リリ 12,14 

970 LY=18-N:iLX=24 
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980 FOR J=1 TO Nx8 STEP 2 

990 A$=HEX$(CV1I (MID$(TD も (W,0 ) ,J) ) ) 

1000 LOCATE LY,LXIPRINT A$+ 7 "5 

1010 LX=LX+3:IF LX>33 THEN LX=24:LY=LY+1 

1020 NEXT JiMOUSE 1,,,0:A=1 

1030 FOR I=340-(20XN)+1 TO 321 STEP 20 

1040 FOR J=21 TO 161 STEP 20 

1050 LINE(J, IT)-STEP(18,18),VAL("&H"+MID も (TDS(W,2) ,A,1) ),BF 
1060 A=A+1:NEXT:NEXT:MOUSE 1 ,,,1:RETURN 

1070 'xxxxX 色 変 換 SUB xxxxx 

1080 MOUSE 4,.20,350,180.390:X=MOUSE(0):Y=MOUSE( 1):CC=POINT(X 
こ -2,Y-2) 

1090 IF MOUSE( 2,1)=1 THEN CH=CC:MOUSE 1,,,.0:LINE(111,.451)-(1 
79、474) ,CH,BF:MOUSE 1 , , .1 

1100 IF MOUSE(2,2)=0 THEN 1080 

1110 MOUSE 4.0,.0.719,.511:MOUSE 1,,,0:FOR PY=340-20XN+1 TO 32 
1 STEP 20:FOR PX=21 TO 161 STEP 20 

1120 IF POINT(PX,PY)=C THEN LINE(PX,PY)-STEP(18,18),CH, BF 
1130 NEXT:NEXTIMOUSE 1 , ,,1:RETURN 

1140 'xXxxXxX ERROR 処理 XXxxx 

1150 1F ERL=860 AND ERR=5 THEN 1160 ELSE ON ERROR GOTO 0 
1160 MOUSE 0:BEEP:BEEPI BEEP 

1170 PUT@(190,400)," 0 0 0 0 が 3 つ 以 上 " 

1180 PUT@(190.,420 ) , "重なっ て いる パタ ー" 

1190 PUTQ(190.440)。" ン は 、PAINT で " 

1200 PUT@(190,460 ) , "きま せん 。" 

1210 IF MOUSE(2,1)=0 THEN 1210 

1220 PUTQ(195,400)," 0 

1230 PUTQ(200,.420)," 

1240 PUTQ(200,440) ," 

1250 PUTQ@(200,460)," 6 

1260 MOUSE 1,.0,.0,1:RESUME 350 
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第 選 草 
漢字 処理 


N」。。 - BASIC の 漢字 処理 機能 と し て は , キー ボー ド 上 の | 漢字 | キー を 使用 する カナ 漢字 変換 と , BASIC プログ 
ラム 上 で 使用 する 種々 の ステ ー ト メン ト , 関数 と が あり ます . 

漢字 処理 と し て 使用 する “漢字 キャ ラク タ ” と 呼ば れる も の は , JIS 第 一 水準 の 漢字 2965 字 と , 特殊 記号 , 英 ・ 
数 字 , ひら が な , カタ カナ , ギリ シャ 文字 , ロー マ 字 な ど 453 文 字 が あり ます . これ ら は すべ て 2 バイ ト で 表現 さき 
れ , 2 パイ トキ ャ ラク 夕 と 呼ば れ ま す . これ に 対し , 1 文字 を 1 バイ ト で 表現 する 通常 の キャ ラク タ を 。 1 パイ 
トキ ャ ラク タ ま た は ASCI エ キャラクタ と 呼び ます 。 

漢字 キャ ラク タ は , BASIC 上 で は REM 文 , PRINT 文 , 文字 定数 , 文字 関数 ファ イル 名 な ど に 使用 で きま 
す , この 漢字 キャ ラク タ の 文字 列 中 に は ,。 1 パイ トキ ャ ラク タ を 混在 させ る こと も で きま す . 


5.1 漢字 コー ド 


漢字 キャ ラク タ を 出力 する た め の 漢 字 コ ー ド に は 。 4 種類 あり , その 指定 方 法 は 次 の よう に な り ま す 。 
例え ば , “ 亜 ” と いう 文字 に いち て 考え る と 各 漢 字 コ ー ド は 次 の よう に な り ま す 。 


JIS 区 点 コ ー ド 人 al 16 区 1 点 
内 部 連続 コー ド ……… 1666 
シフ ト JIS コー ド ……88 (1 バイ ト 目 ), 9F (2 バイ ト 目 ) 


また , 実際 に “ 亜 " と いう 漢字 を 出力 する 場合 , 上 記 の 漢字 コー ド を 用 いて 次 の よう に し ます . 


PRINT CHR$(&J3021 ) 
PRINT CHR$(&K1601) 
PRINT CHRS(1666) 
PRINT CHR$(&H88, &H9F) 


と これら 4 つの どれ を 用 いて も び 亜 ” と いう 文字 が 出力 され ます . 

な お , 漢字 キャ ラク タモ ー ド で は , ASCII コ ー ド の 一 部 を 2 パイ トキ ャ ラク タ (漢字 な ど ) の シフ ト JIS 
コー ド の 第 1 バイ ト と し て 扱い ます . この た め , 漢字 キャ ラク タモ ー ド で は &H80-&H9F, &&HE0 一 HEFF 
の ASCII キャラクタ ( 主 ト に グラフィック キャ ラク タ ) が 使え な く な り ま す の で , 注意 し て くだ さい 。 


以上 の 4 つの 漢字 コー ド は , それ ぞ れ 下記 の よう な 対応 と な っ て いま す 。 詳細 は 。N,」。。- BASIC リフ ァ レ 
ンス マニ ュ ア ル 付録 漢字 コー ド 表 を 参照 し て くだ さい 。 
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JIS コー ド 区 点 コ ー ド | 内 部 連続 コー ド | シフ ト JIS コ ー ド 


和 &J2121 &K0101 8140 
公 J2122 &K0102 8141 


ゴ 2 15E 和 &K0132 
和 wJ2160 &K0133 


公 J217E &K0194 
交 J2221 &K0201 


& す 227E &&K0294 
を J2321 wK0301 


5.2 漢字 を 使用 する 場合 の 注意 


BASIC 上 で 漢字 を 使用 する 場合 。 8 X16 ピ クセ ル の キャ ラク タフ ォ ン ト を 指定 し た と きのみ , 表示 が 可能 
と な り ま す 。 し た が っ て WIDTH 文 を 用 いた 場合 は 。 次 に 挙げ る 5 つの 組合 せ が 有 効 で す 、 


画面 が 横 表 示 の 場合 80( 桁 ) X32( 行 ) 
80( 桁 ) X32 ( 行 ) 
90( 桁 ) X25 ( 行 ) 
90( 桁 ) X32 ( 行 ) 


画面 が 縦 表示 の 場合 64( 桁 ) X45( 行 ) 


また , WIDTH USING 文 を 使う 場合 は フォ ント サイ ズ を 8 X16 ピ クセ ル に 指定 すれ ば , 2 パイ トキ ャ ラ 
クタ の 表示 が 可能 に な り ま す . WIDTH 文 お よび WIDTH USING 文 の 詳細 は , Ni。。- BASIC リフ ァ レ ンス 
マニ ュ ア ル を 参照 し て くだ さい 。 

さき さらに, キャ ラク タモ ー ド の 選択 (グラ フィ ッ ク キ ャ ラク タモ ー ド また は 漢字 キャ ラク タモ ー ド ) お よび , 
カナ 漢字 変換 を する か し な いか の 設定 は , SCREEN 文 の 第 3 パラ メー タ と 第 4 パラ メー タ で 行い ます . 

例え ば , 

SCREEN , , 0, 1 


と 指定 する と , 画面 が 一 度 ク リア され て , 漢字 キャ ラク タモ ー ド に な り ま す 。 そこ で | 漢字 | キー を 押し て く 
だ さい , ディ スプ レイ 画面 下部 2 行 に , 


和 [ 還 縫 |] [カナ ] [ 敵 数 ] [記号 ] 0 
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と いう 漢字 入力 用 の テン プレ ー ト が 表示 され ます 。 も う 一 度 [漢字 | キー を 押す と 。 も と の 状態 に 戻り ます . 


漢字 キャ ラク タモ ー ド の 状態 で は ,。 ディス プレ イ 画 面 の 下部 2 行 が 。 ヵ カナ 漢字 変換 の た め に 空け られ ます 。 
きら に , ファン クシ ョ ン キ ー を 表示 する と , も う 1 行使 を な く な り ま す , LOCATE 文 で カー ソル の 位置 を 指 
定 する 場合 は 注意 が 必要 で す 。 画面 上 の 使用 可能 な 範囲 は 次 の と お り で す 。 


DTM LOCATE 文 垂直 座標 
生 


25 

( 横 ) 
32 
45 ( 縦 ) 


5.3 画面 構成 


漢字 キャ ラク タ お よび ASCIT キャ ラク タ は , 下 の よ うな ドッ ト パ タ ー ン で 画面 に 表示 され ます 。 


ーーーー 16 ビ クセ ル 


ーー8 ビ クセ ルー テー 


16 ピ クセ ル 


漢字 キャ ラク タ は 16X16 ピ クセ ル の ドッ ト パ タ ー ン で 表示 され る の で , BASIC で 通常 使わ れる ASCII 
キャ ラク タ 2 文字 分 の スペ ー ス を 必要 と し ます . これ に より , 1 行 中 を すべ て 漢字 キャ ラク タ で 埋め た 場合 
は ,。 ASCII キャ ラク タ の 半分 の 文字 数 し か 表示 で きま せん ., これ を 図 に 示す と 次 の よう に な り ま す 。 
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例 ) WIDTH 80, 25 : SCREEN, , 0, 1 の 場合 


2 34 な 6 7 マト 7778 7980 


l6 ビ クセ ル 鉄 | 腕 | 一 40 字 /2 バ イト キャ ラク タ 
9 ピク セル 


ME TIN| 一 80 字 / | バイ トキ ャ ラク タ 


この 場合 , 表示 可能 な 漢字 キャ ラク タ 数 は , 40X23=920 文 字 と な り ま す . その 他 の 場合 を 以下 に 示し ます . 
(た だ し 。 ファ ンク ショ ン キ ー を 表示 し な い 場 合 ) 


WIDTH 文 に よる 指定 表示 可能 な 文字 数 

( 横 表 示 ) 80X32 の 場合 1200 文字 
90X25 の 場合 1035 文字 
90X32 の 場合 1350 文字 

( 縦 表 示 ) 64X45 の 場合 1376 文 字 ( 最 大 ) 


も ちろ ん 1 パイ トキ ャ ラク タ と 2 パイ トキ ャ ラク タ の 混在 も 可能 で す の で 。 その 場合 に は , 文字 数 は 上 の 
場合 より 多く な り ま す . 
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5.4 漢字 キャ ラク タ の 入出 力 


BASIC 上 で , 実際 に 漢字 キャ ラク タ を 使っ て み ま し ょ う 。 
例え ば , 


10 REM 圏 


ここ で , 漢字 キャ ラク タ を 使用 し て “注釈 で す .。* と いう 文字 列 を 入力 し た い 場合 , まず [漢字 | キー を 押し 
て 漢字 入力 モー ド に し ます . そし て , 


] [ 庄 詳 ] [カナ ] [ 英 数 ] [記号 ] [コー ド ] 
ちゅ う し ゃ く で す 。 ] 


と 入力 し ます . ここ で の 入力 方 法 に は ロー マ 字 入力 に よる 方 法 と [か な | キー を ロッ ク し て , カナ 入力 を する 
方 法 と が あり ます . 

ここ と で リタ ー ン キー を 押す と , まず 最初 の ヾ ちゅ う ” が 漢字 変換 され て , 最 下 行 に 表示 され ます . そこ で 
カー ソル を 使っ て “ 注 ” の 字 を 選び , リタ ー ン キー を 押す と 画面 の 10 REM” の 後に , “ 注 ” の 字 が 入力 き 
れ ま す . 


ら ] [カナ ] [ 英 数 ] [記号 ] [コー ド ] 
で す 。 


WMa 党 


次 に [TAB | キー を 押し て ヾ かな” モー ド に し て , リタ ー ン キー を 押す と , か な の 状態 の まま テン プレ ー ト 
の 文字 が (漢字 変換 せ ず に ) 入力 され ます . 


10 REM 注 条 で す 。 


以上 で 漢字 キャ ラク タ の 入力 を 終了 し た の で , キー を 押し て 漢字 入力 モー ド か ら ぬ け ま す 。 する と , 
現在 入力 し て いる 行 の うし ろ です 。” の うし ろ ) に カー ソル が 移動 し ます の で 。 リ ター ン キ ー を 押し て 入 
力 を 終了 させ ます . この よう に , 通常 は 1 パイ トキ ャ ラク タ に より , BASIC の ステ ー ト メン ト , コマ ンド な 
ど を 入力 し , 文字 列 デー タ な ど に 漢字 が 必要 な と き は 漢字 入力 モー ド に 入り , 漢字 キャ ラク タ の 入力 を 行い 
ます . 漢字 入力 に 関す る 詳細 は , PC-100 ユー ザー ズ ガ イド を 参照 し て くだ さい 。 
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5.5 漢字 処理 用 関数 


漢字 処理 用 の 関数 と し て ,KPOS, KLEN, JIS$, KTN$ が あり ます . また , 漢字 コー ド 入 力 用 に は 。&K 
お よび 必 ] が あり ます 。 これ ら は , JIS$ と KTNS$ の 逆 関 数 的 な 役割 を 果 し ま す . 

これ ら の 関数 お よび &K, &] に 関す る 詳細 は 。 Nj-BASIC リフ ァ レ ンス マニ ュ ア ル を 参照 し て くだ さ 
い . 

BASIC 中 の 文字 お よび 文字 列 を 操作 する 関数 。 ス テー トメ ント は , すべ て 1 パイ トキ ャ ラク タ と 2 バイ ト 
キャ ラク タ を 混在 し て 扱え る よう に な っ て いま す . この た め , INSTR 関数 が , 期待 どおり の 動作 を し な い 事 
が あり ます . その 例 を 下 に に 示し ます . 


PRINT INSTR( "合意 売 得 起 ABC ア 89 ナ " /" カ " ) 回 一 
地 
Uk 
PRINT INSTR(" 合 意 売 得 文 ABC 陰 け ",* カ " ) 回 一 一 ② 
10 
Ok 


これ か ら わ か る よう た に, 同じ 文字 “ カ ” を 捜す 場合 に , うま くい く 場 合 (1) と ,。 うま くい か な い 場 合 (2) が で 
きま す .。 これ は , BASIC が 漢字 キャ ラク タ (2 バイ トキ ャ ラク タ ) を , 内 部 連続 コー ド で 処理 する た め K 起 
こる も の で す 。 つま り , (2) の 文字 列 中 の ^ 文 "の 内 部 連続 コー ド は 95B6 で , この うち 下位 パイ ト の B6 が ~ カ ” 
の ASCII コー ド と 同じ た め ,。 BASIC は , ここ で 一 致し た (発見 し た ) と みな し て し まう か ら で す .。 これ は , 
調べ た い 文 字 列 が 1 パイ トキ ャ ラク タ 1 文字 の と きのみ に 起こ り , 1 バイ トキ ャ ラク タ が 2 文字 以上 , お よ 
び 2 バ パイ トキ ャ ラク タ の 時 に は 生じ ませ ん 。 この 問題 を 解決 する サ プ ル ー チ ン を 含む プロ グラ ムリ スト を 下 
に 掲げ ます . 


短 * 

20 ' 'INSTR* PROGRAM 
30 * 

40 X$=" 合 意 売 得 文 abcC ア カサ タナ " 
5 0 Yb= WE カ 1 

60 Ns1 

79 " 

80 GOSUB 120 

90 PRINT X$j" "3Y$ 

100 PRINT NOi" bytes" 
110 END 

120 ・ 

130 IF LEN(Y$)=1 AND ASC(Y$) く <256 THEN 190 
140 ・ 

150 NO=INSTR(N,X$,Y$) 
160 " 

170 GOTO 260 

180 " 


190 Y=ASC(Y$):I=N 
200 C=KPOS( X$。1) 
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210 IF C=0 THEN 260 

220 W$=MID$(X$,C, 1 ) 

230 IF ASC(W$)=Y THEN NO0=1 

240 IF NO=0 THEN IT=I+1 EGOTO 200 
250 NO=KPOS(X$, NO ) 

260 RETURN 


と の プロ グラ ム は 1 パイ トキ ャ ラク タ が 1 文字 の と きだ け , 別 の サブ プルー チン で 判断 し て いる の で , 正 し 
い 結 果 が 得 ら れる わけ で す . 

この プロ グラ ム で は , X$ に 調べ る 文字 列 を 代入 し , Y$ に 調べ た い 文 字 列 を 代入 し ます 。 そして, 何 パ イト 
目 か ら 調べ る か を N だ 代入 し ます ( 行 番号 40--60)、 そ れ か ら , 120 行か ら 始 まる サブ ルー チン を 実行 し ます . 

サ プ ル ー チ ン 中 で は , Y$ が 1 文字 で 1 バイト キャラクタ の 場合 と , そう で な い 場 合 の 区 別 を し ます ( 行 番号 
130)、 そして, Y$ が 1 文字 で 1 パイ トキ ャ ラク タ の 場合 は , 180 行 へ 実行 が 移り , ここ で 正しい 判断 を し ま 
す . また , そう で な い 場 合 は , INSTR 関数 で 処理 で きる の で 150 行 へ と 実行 が 移り ます 。 ど ちら も NO と い ぃ 
う 変 数 に 答え を 代入 し て , 250 行 の RETURN 文 で サブ プル ー チ ン を 終り ます , その 後 。 90 行 に 帰り NO を 表 
示し て プロ グラ ム を 終了 し ます . 

これ に より , INSTR 関数 は 正確 に 動作 で きる よう に な り ま す .。 し た が っ て , INSTR で 1 バイト キャ ラク 
タ 1 文字 の 判断 を する と き は ,。 こ の プロ グラ ム の 180 行か ら 240 行 を 参考 に し て ,。 プ ログ ラム を 作成 し て くだ 
さい 、。 

さて , INSTR 関数 で は その 文字 (調べ る 文字 列 ) が 。 左 か ら 何 パ イト 目 に ある か を 返す も の で す が ,` 何 
文字 目 に ある か ? を 得 た い 場 合 が あり ます . 特に 2 バイト キャ ラク タ を 使用 し て いる と , INSTR 関数 で は , 
バイト 数 三文 字数 が 成立 し な い の で 文字 列 操 作 が や っ か いな も の に な り ま す . そ こ で ,\ 拡 張 INSTR 関数 
と で も 言う プロ グラ ム (サブ ルーチン) を 掲げ て お きま す 。 


10 『 

20 " "拡張 INSTR* PROGRAM 
1610 

40 X$= "合意 売 得 文 abc ア カサ タナ " 

5 Y や = My) 

60 Ns1i 

70 『 

80 GOSUB 120 

90 PRINT X$j" "ijY$ 

100 PRINT NOi" characters" 
110 END 

120 " 

130 IF LEN(Y$)=1 AND ASC(Y$) く <256 THEN 200 
140 ‥“ 


150 NO=INSTR(N,X$,Y$):IF NO=0 THEN 260 
160 C$=LEFT$(X$,NO-1 ) 

170 C=LEN(C$) -KLEN(C$) : NO=N0-C 

180 GOTO 260 


200 YsASC(Y$):1=N 

210 C=KPOS(X$, 1 ) 

220 IF C=0 THEN 260 

230 W$=MID$(X$,C,1) 

240 IF ASC(W$)=Y THEN NO=! 

250 IF NO=0 THEN 1I=I+1EGOTO 210 
260 RETURN 
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これ に より , NO と いう 変数 に 文字 数 ( 1 パイ トキ ャ ラク タ と 2 パイ トキ ャ ラク タダ 混在 の キャ ラク タ 数 ) を 
返す こと が で きま す . プ ログ ラム の 内 容 に た に ついては, ほとんど INSTR 関数 の プロ グラ ム と 同じ な の で そちら 
を 参照 し て くだ さい 。 
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第 巳 曹 
デー タフ ァイル 入出 力 


デー タフ ァイル に は , シー ケン シャ ルフ ァイル と ラン ダム ファ イル の 2 種類 が あり ます . シー ケン シャ ルフ ァ 
イル と は デー タ を ファ イル の 先頭 か ら 順に 読み 書き する ファ イル で す .。 一 方 。 ラ ンダ ム フ ァ イル は デー タ を 任意 
の 順に 読み 書き で きる ファ イル で す . 

シー ケン シャ ルフ ァイル と ラン ダム ファ イル に は 一 長 一 短 が あり , どちら が 良い と は 一 概 に 言え ませ ん . た だ , 
高速 処理 を 要求 きれ る 場合 や デー タ の 更新 が 頻繁 に 行わ れる 場合 は ラン ダム ファ イル に し た 方 が よい で し ょ う 。 
一 方 , ファ イル 領域 を 小さ くし た い 場 合 や デー タ の 更新 が あま りな いら 場合 は シー ケン シャ ルフ ァイル が よい で 
よう 。 


シー ケン シャ ルフ ァイル と ラン ダム ファ イル で は 。 使 用 で きる 文 と 関数 は 次 の と お り で す 。 


シー ケン シャ ルフ ァイル ラン ダム ファ イル 


PRINT 半 
PRINT 失 USING 


INPUT 音 
LINE INPUT 半 
WRITE 盾 


INPUT \ 
INPUT$ 
EOF 


6.1 シー ケン シャ ルフ ァイル 


シー ケン シャ ルフ ァイル の デー タ を 読み 書き する と き は 一 般 に 次 の 手順 に 従い ます 。 


① ファ イル を オー プン する 。 
② ファ イル の デー タ を 読み 書き する . 
⑬③ ファ イル を クロ ー ズ する 。 


つま り , デー タ を 読み 書き する 前 に ファ イル を オー プン し レ し , 読み 書き が 終っ た な ら ば , ファ イル を クロ ー 
ズ し ます . また シー ケン シャ ルフ ァイル は オー プン 時 に , 次 の いずれ か の 処理 形態 (モー ド ) を 指定 し ます 。 


@ OUT PUT モー ド : 新規 に ファ イル を 設定 し て 。 デー タ を 順次 書き 込む . 
@ APPEND モー ド : 既存 の ファ イル の 最後 に デー タ を 人 道 加 す る . 
@ INPUT モー ド : 既存 の ファ イル の 先頭 か ら デ ー タ を 順次 読み 込む . 


77 


78 


6.1.1 シー ケン シャ ルフ ァイル の 作成 
シー ケン シャ ルフ ァイル を 新規 に 作成 する 場合 は 次 の 手順 に 従っ て くだ さい 。 


①、 フ ァイル を OUTPUT モー ド で オー プン する 。 
OPEN “TEL” FOR .OUTPUT AS 抽 


⑨ ファ イル に デー タ を 書き 込む . 


WRITE #1, N$: TNS 
PRINT #1.N$: 7 jTNS 


③ 最後 に ファ イル を クロ ー ズ する 。 
CLOSE #1 


次 の プロ グラ ム は キー ボー ド か ら 名 前 と 電話 番号 を 読み 込ん で , 電話 帳 フ ァイル “TEL” を 作成 する 
も の で す . 


10 REM MAKE TEL 

20 OPEN "TEL" FOR OUTPUT AS 失 1 
30 INPUT "NAME" 5N$ 

40 IF N$="" THEN 80 

50 INPUT "TEL NO. "iTN$ 

60 WRITE #1,N$?TN$ 

70 GOTO 30 

80 CLOSE 1 


60 行 は 次 の よう に PRINT# 文 で 書い て も か まい ませ ん . 
60 PRINT #1,N$:TN$ 


この プロ グラ ム を 実行 し て み ま し ょ う . 


Fun 
NAME? ダ ロ ウ 

TEL NO.? 245-4567 
NAME? 2D7 

TEL NO.? 222-3453 
NAME? 

TEL NO.? 345-5612 
NAME? 

Uk 


この 結果 次 の よう な ファ イル “TEL” が 作成 され ます . 


ジロ ウ , 245 一 4567gE タロ ウ , 222 一 3453gE ハナ コ , 345 一 56128E 
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ここ で , キャ リッ ジリ ター ンコ ー ド 十 ラ イン フィ ー ド コー ド は PRINT# 文 ある い は WRITE # 文 の 終 
り で 自動 的 に 書き 込ま れ ま す 。 そし て , キャ リッ ジリ ター ンコ ー ド 十 ラ イン フィ ー ド コー ド ま で の デー 
タ を レコ ー ド と 呼ん で いま す 。 一般 に , シー ケン シャ ルフ ァイル で は レコ ー ド の 長き さき は まち まち で す . 
この よう な レコ ー ド 形式 を 可変 長 レ コー ド 形 式 と 呼ん で いま す 。 

また , ファ イル の 読み 書き は すべ て パッ ファ と いう 入出 力 の た な め の メ モリ 領域 を 介し て 行わ れん ます 。 
つま り , OPEN 文 , WRITE 文 ,」 CLOSE 文 な ど で 指 定 す る ファ イル 番号 #n は ,。 この パッ ファ の 番号 を 
指し て いる わけ で す . この ファ イル 番号 の 数 は , BASIC 起動 時 に プ F : パラ メー タ に よっ て 指定 され た 
範囲 内 で あれ ば , いく つ で も 指定 する こと が で きま す . な お , 詳細 は 8 章 BASIC の 特殊 な 起動 方 法 を 
参照 し て くだ さい . 

PRINT# 文 と WRITE# 文 の どちら を 使っ て も , シー ケン シャ ルフ ァイル に デー タ を 書き 込む こと が 
で きま す が , WRITE# 文 は 区 切り 記号 カン マ (。 ) を 自動 的 に デー タ 間 に 書き 込み , 余分 な 空白 を 削除 し ま 
また , PRINT#USING 文 を 使っ て , 編集 され た デー タ を 書き 込む こと も で きま す .。 た と えば ぱ ば , 


PRINT#1, USING “ 振 克 " ,A:B:C:D 
と する と , A, B, C, D の 値 は 書式 指定 に 従っ て 編集 され て ファ イル に 書き 込ま れ ま す . 


な お , OUTPUT モー ド で オー プン する と , すでに 同じ 名 前 の ファ イル が あっ た 場合 , それ を 削除 し て 
新た に つく りな お すこ と に な り ま す 。 


6.1.2 シー ケン シャ ルフ ァイル へ の デー タ の 追加 
既存 の シー ケン シャ ルフ ァイル へ デー タ を 追加 する 場合 は , 次 の 手順 で 行い ます 。 
① ファ イル を APPEND モー ド で オー プン する , 


OPEN TEL” FOR APPEND AS #1 
② ファ イル に 追加 し た ぃ デー タ を 書き 込む . 


WRITE #1, N$: TN$ 
PRINT #1.N$: iTNS 


⑧ 最後 に ファ イル を クロ ー ズ する . 
CLOSE #1 


オー プン 時 の モー ド を APPEND と する 以外 は シー ケン シャ ルフ ァイル を 作成 する 手順 と まっ た く 
同じ で す 。 APPEND モー ド で オー プン する ファ イル が ディ スク に 作ら れ て いな いと エラ ー と な り ま す 。 
で は 。 先程 作成 し た ファ イル \TEL” に 新た な レコ ー ド を 追加 する プロ グラ ム を 作成 し て み ま し ょ う 。 


10 REM MAKE TEL 

20 OPEN "TEL" FOR APPEND AS 提 1 
30 INPUT "NAME"iN$ 

40 IF N$="" THEN 80 

50 INPUT "TEL NO. "iTN$ 

60 WRITE #1,N$jTN$ 

70 GOTO 30 

80 CLOSE 失 1 
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こと の プロ グラ ム は 先 の プロ グラ ム の 20 行 を APPEND モー ド に 変え た だ け で す . で は プロ グラ ム を 実 
行 し て み ま し ょ う 。 


Fun 
NAME? 7 け 

TEL NO.? 765-9800 
NAME? 上 

IL MD 111c22Z2 
NAME? 

Ok 


と の 結果 ,。 シー ケン シャ ルフ ァイル TEL” に は 次 の よう に デー タ が 追加 され ます . 


CL 宮 本 GL 
アキ ナ , 765 一 98005E 司 四 表 。 | 1 mes2e 


追加 


6.1.3 シー ケン シャ ルフ ァイル の デー タ の 読込 み 
シー ケン シャ ルフ ァイル か ら デ ー タ を 読み 込む せ と き は 次 の 手順 で 行い ます 。 


⑳⑩ ファ イル を TNPUT 生 一 で オー プン する 。 
OPEN TEL” FOR INPUT AS #1 
⑨⑨ ファ イル か ら デ ー タ を 読み 込む 。 
INPUT #1, N$, TN$ 
⑬⑧ ファ イル を クロ ー ズ する . 
CLOSE #1 


次 の プロ グラ ム は ファ イル “TEL” か ら す べ て の デー タ を 読み 込み 。 それ を 画面 に 表示 する も の で す 。 


10 REM READ TEL 

20 OPEN "TEL" FOR INPUT AS 韻 1 
30 IE EOF(1) THEN 70 

40 LINE INPUT #1,R$ 

50 PRINT R$ 

60 GOTO 30 

70 CLOSE #1 


40 行 の INPUT# 文 に 。 ファ イル TEL” の 先頭 か ら 1 レコ ー ド ずつ 順に 読み 込ん で いき ます 。 この 
と き , N$ に は 名 前 が , TN$ に は 電話 番号 が セッ ト さ れ ま す . 
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30 行 の EOF 関数 は ファ イル の 終り を 検出 する 関数 で す . これ を 省略 する と 。 ファ イル の 最後 に 送 し た 


と き , “Input past end” エラ ー が 発生 し ます 。, 
この プロ グラ ム を 実行 する と 次 の よう に 表示 され ます . 


Fun 
ゲロ 9 
5 ロウ 
けけ コ 
7† ナ 
LH ミ 
Ok 


INPUT# 文 で デー タ を 読む と き に は 次 の 記号 が 区 切り 記号 と な り ま す . 
空白 カン マ (,) キャ リッ ジリ ター ンコ ー ド (CR) 


た だ し , 文字 デー タ を 読み 込む 場合 。 空白 は 区 切り 記号 と は な り ま せん 。. 


245-4567 
222-3453 
S45-5512 
765-3800 
0 っ ZZ 


キャ リッ ジリ ター ンコ ー ド 二 ラ イン フィ ー ド コー ド の み を 区 切り 記号 と し た めい 場合 は 。LINE 
INPUT# 文 を 使い ます . 次 の プロ グラ ム は LINE INPUT# 文 を 使っ て ファ イル *TEL* を 読み 込む も 


の で す . 


10 REM READ TEL 


20 OPEN "TEL" FOR INPUT AS #1 


30 IF BEOF(1) THEN 70 
40 INPUT #1,N$,TN$ 


50 PRINT N$,TN$ 
60 GOTO 30 
70 CLOSE #} 


MFI 


"ロウ" "245-4567” 
"ロウ リリ 222-3453" 
ツヤ 
"キナ "765-9800" 
コー の 2 


Dk 
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特に 区 切り 記号 を 設け ず 。 バイ ト 数 に よっ て デー タ を 読み 込む 関数 と し て , INPUT$ が あり ます . ファ 
イル TEL” の 最初 の 6 バイ ト を 読み 込む プロ グラ ム は 次 の よう に な り ま す 。 


10 REM READ TEL 

20 OPEN "TEL" FOR INPUT AS #1 
30 R$=INPUT$(6,1 ) 

40 PRINT R$ 

50 CLOSE #1 


FMI1 
山 3 昌 ウ ji 
Ok 


6.2 ラン ダム ファ イル 
ラン ダム ファ イル の デー タ を 読み 書き する と き は パッ ファ の 存在 を か な り 意 識 し な けれ ば な り ま せん 。 上 内 
体 的 に は 次 の よう に な り ま す . 


① ファ イル を オー プン する 。 

⑧ バッ ファ の フィ ー ル ド を 定義 する . 

⑬ パッ ファ を 経由 し て デー タ を 読み 書き する . 
(〈⑥ ファ イル を クロ ー ズ する 。 


6.2.1 ラン ダム ファ イル の 作成 
ラン ダム ファ イル を 作成 する に は 次 の 手順 に 従い ます . 
① ファ イル を オー プン する 。 
"OPEN ^XTEL” AS #1 
ラン ダム ファ イル を オー プン する と き は モー ド の 指定 は 不要 で す . 
⑨② フィ ー ル ド を 定義 する 。 
FIELD #1, 10 AS NF$, 20 AS TNF$ 
⑬⑧ パッ ファ に デー タ を セッ ト す る . 


LSET NF$= い ヤ マダ ? 
RSET TNF$= `680-1921? 


パッ ファ に デー タ を セッ ト す る の は 代入 文 で は で きま せん . LSET また は RSET を 使わ な けれ ば 
な り ま せん , LSET は 左 づ め , RSET は 右 づ め に し て , それ ぞ れ バッ ファ に デー タ を セッ ト し ま 
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④ パッ ファ の デー タ を ディ スク に 書き 込む . 
PUT #1.R 


ラン ダム ファ イル で は レコ ー ド の 長き は ふつ う 128 パ イト で , 各 レコ ー ド に は 1 か ら 順 に 番号 が 振 
られ ます . この 番号 の こと を レコ ー ド 番号 と 呼び ラン ダム ファ イル の レコ ー ド を 読み 書き する 
と き に は 必ず この レコ ー ド 番号 を 指定 し な けれ ば な り ま せん 。 

な お , レコ ー ド の 長 さ は, BASIC の 起動 時 に ノ プ S : パラ メー タ に よっ て ファ イル パッ ファ サイ ズ 
を 指定 する こと に より , 任意 に 変え ん る こと が で きま す . 詳細 は 8 章 BASIC の 特殊 な 起動 方 法 を 
ご 覧 くだ さい 。 


⑥ ファ イル を クロ ー ズ する 。, 
CLOSE #1 


次 の プロ グラ ム は 電話 帳 を ラン ダム ファ イル と し て 作成 する も の で す . 


10 REM MAKE XTEL 

20 R=1 

30 OPEN "XTEL" AS ##1 
40 FIELD #1,10 AS NEF$,20 AS TNEF$ 
50 INPUT "NAME":N$ 

60 IF N$="" THEN 130 
70 INPUT "TEL NO. "jiTN$ 
80 LSET NF$=N$ 

90 RSET TNEF$=TN$ 

100 PUT #1,R 

110 R=R+1 

120 GOTO 50 

130 CLOSE 1 


実行 し て み ま し ょ う . 


Fun 

NAME? ヨ 3 コ 

TEL NO.? 333-4444 
NAME? トウ 9 后 9 

TEL NO.? 567-5676 


NAME? すけ ナ 

TEL NO.? 492-0176 
NAME 

Ok 


この 結果 次 の よう な ラン ダム ファ イル ^XTEL” が 作ら れ ま す . 
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人 ト 20 バ イト 226 バ イト 


333 一 4444 


567 一 5678 


492ー017.6 


な お 。 OPEN 文 で 指定 し た ファ イル が ディ スク 上 に な いと , 新た に ファ イル が つく られ ます が , ファ 
イル が ディ スク 上 に あれ ば ぱ ば, 既存 の ファ イル に ,。 追加 また は 重ね 書き され る と こと に な り ま す 。 


また , ラン ダム ファ イル の 読み 書き も すべ て バッ ファ を 介し て 行わ れ , OPEN 文 , PUT 文 , GET 文 
な ど で 指 定 さ れる ファ イル 番号 は この バッ ファ 番号 を 意味 し ます . ファ イル 番号 の 数 に つい て は シー ケ 
ン シ ャ ルフ ァイル の 場合 と まっ た く 同 様 で す . 


6.2.2 ラン ダム ファ イル か ら の デー タ の 読込 み 
ラン ダム ファ イル か ら デ ー タ を 読み 込む と き は 次 の 手順 で 行い ます . 


① ファ イル を オー プン する . 
OPEN  ^XTEL” AS #1 


や は り , モー ド 指 定 は 不要 で す 。 
⑧⑨ バッ ファ の フィ ー ル ド を 定義 する . 


FIELD #1, 10 AS NF$, 20 AS TNFS 
通常 。 作成 し た と き と 同 じ よ うに 定義 し ます 。 

⑧ ディ スク の デー タ を バッ ファ に 読み 込む . 
GET #1,R 


レコ ー ド を 読み 込む 場合 , 読み 込む な レコ ー ド の 番号 を 指定 し ます . 


④ パッ ファ の デー タ を 取り 出す . 
A$=NFS$ 
ある い は , 
PRINT NF$ 


バッ ファ の デー タ を 取り 出す に は , 代入 文 を 使い ます . 単に 表示 させ た い 場 合 な ら , PRINT 文 で 
直接 指定 し て も か まい ませ ん 。, 


⑥ ファ イル を クロ ー ズ する 。 


CLOSE #1 


次 の プロ グラ ム は *XTEL′ の デー タ を 読み 込み , 表示 し ます . 


10 REM READ XTEL 

20 OPEN "XTEL" AS #1 

30 FIELD #1,10 AS NF$,20 AS TNF$ 
40 NMAX=LOF( 1 ) 

50 FOR R=1 TO NMAX 

60 GET #1.R 

70 PRINT NF$,TNF$ 

80 NEXT R 

90 CLOSE #1 


ここ で LOF 関数 は , ファ イル の 最大 レコ ー ド 番号 を 得る 関数 で す . 
これ を 実行 する と 次 の よう に 表示 され ます ., 


run 
39 ロ 333-4444 
トウ キチ ロリ 567-5576 
ナナ 492-0176 
OK 


6.3 数 値 デ ー タ の 読み 書き 
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パッ ファ 内 の デー タ は すべ て 文字 列 と し て 扱い ます し た が っ て ,。 数 字 デ ー タ を パッ ファ に セッ ト す る 場 
合 , ある い は パッ ファ の 内 容 を 数 値 変数 に 代入 する 場合 , それ ぞ れ 文字 型 , 数 値 型 へ の 変換 が 必要 と な り ま 


す 。 その た め に 用 意 き れ て いる 関数 を 次 に あげ ます 。 


数 値 型 か ら 文 字 型 へ 
MKI$(N%) 整数 を 2 パイ ト の 文字 列 へ 変換 
MKS$(N) 単 精度 数 値 を 4 バイ ト の 文字 列 へ 変換 
MKD$(N お ) 倍 精 度数 値 を 8 パイ ト の 文字 列 へ 変換 


文字 型 か ら 数 値 型 へ 
CVI(N$) 2 バイト の 文字 列 を 整数 へ 変換 
CVS(N$) 4 バイ ト の 文字 列 を 単 精度 数 値 へ 変換 
CVD(N$) 8 バイ ト の 文字 列 を 倍 精 度数 値 へ 変換 


例 ) |100 
X$ 三 MKIS$(|) 
N=CVI(X$) 


た だ し , X$ は フィ ー ル ド 名 で す . 
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バッ フ ア デイ スク 


数 | MK, MKS$ MKOs |x LSET, RSET PUT 曲 N 

値 字 

変 ] _ 変 | _ ii 

数 cVL CVS, CVD 数 代入 文 GET ド / 
FIELD 


6.4 ファ イル スペ ッ ク に つい て 


OPEN 文 で 開く ファ イル の 名 前 を 指定 する と き , ドラ イブ 名 や パス 名 を 含め た パフ ァイル スペ ッ ク ? と し 
て 指定 する こと に より , 任意 の ドラ イブ 中 の , 任意 の ディ レク トリ 中 の ファ イル に 対し て 入出 力 を 行う こと 
が で きま す .. 

ファ イル スペ ッ ク は , 次 の よう な 構成 と な っ て いま す . 


〔 く ドラ イブ 名 > : 〕 [< パス 名 >〕 < ファ イル 名 > 


ドラ イブ 名 が 省略 され た と き に は 。 現在 DOS 上 で 選択 きれ て いる ドラ イブ (カレ ント ドラ イブ ) が 仮定 され 
水 す 。 

パス 名 は < ファ イル 名 > で 指定 され る ファ イル が 格納 され て いる ディ レク トリ , あ る い は これ か らく < ファ イル 
名 > で 指定 さき れる ファ イル を 格納 し よう と する ディ レク トリ を ,。 正しく 指し 示す た め の も の で す ., 

た と えば , ドラ イブ B : の ルー トディ レク トリ (ドラ イブ ご と に ある 最も 上 位 に ある ディ レク トリ ) の 下 
に USR” と いう ディ レク トリ が あり , そこ に ヾ TEST” と いう ファ イル が ある と し ます 。 


CCC 『 世 人 き T DDD AAA 一 DDD は ファ イル 


この TEST” ファ イル を 入力 モー ド で 開く に は 。 次 の よう に し ます 。 
OPEN “B:\USR \TEST” FOR INPUT AS#1 


ファ イル スペ ッ ク “B: 半 USR\TEST “ 中, “ 半 USR 半 ′ が パス 名 で す . 
も し ディ レク トリ “USR” 中 に 新しく ファ イル を 作る 場合 に も , 同じ よう に パス 名 を 指定 すれ ば よい の で 
9 


OPEN “B:\USR\NEW” FOR OUTPUT AS #2 


これ で “NEW” ファ イル が ディ レク トリ “USR” 中 に 新しく 開か れ ま す . 
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ディ レク トリ が 階層 的 に 多数 重なっ て いる と き は , パス 名 を 半 \ で 区 切っ て 順に 並べ ます . 
OPEN “A:\USR \TARO\ZZZ” AS#1 


と の 例 は 。 ドラ イブ A : の ルー トディ レク トリ の 下 に ある \USR? デ ィ レ クト リ の , さら に 下 に ある \TARO? 
ディ レク トリ 中 に “ZZZ”" と いう ファ イル を ラン ダム モー ド で オー プン する も の で す . 

な お ,。 下位 の ア ィ レク トリ に な れ ば な る ほど 。 アク セス に 要する 時 間 は 長く な り ま す の で , 速度 を 要求 さ 
れる 場合 は 。 フ ァイル を な る べく ルー トディ レク トリ に 近い ぃ ディ レク トリ 中 に オー プン する こと を お 勧め し 
ます ., 

ファ イル の 階層 構造 。 パ ス 名 な ど に つい て の 詳細 は 10 章 ファ イル の 階層 構造 を ご 覧 くだ さい 。 
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第 ノ 曹 
デバ ッ ク の 基本 


7.1 デバ ッ グ と は 


バグ を 出し て し まう 第 一 の 原因 は , その プロ グラ ム で 何 を し よう と し て いる の か 明確 に ビ せ ず に プロ グラ ミ 
ング を 始め て し まう こと に あり ます . 人 間 に 命令 す る な ら 「 そ とこ を ああ し て こう し て ……」 で すむ せこ と も , 
コン ピュ ー タ を 相手 に する と き は , 「 そ こ 」 と は 何 か ,「 あ あし て 」 と は 何 か , 一 つ ひ と つ を BASIC と いう 言 
語 で 表現 で き な け れ ば な り ま せん 。 プロ グラ ム を 作る と き は まず , フロ ー チ ャ ー ト (流れ 図 ) を 書い て , ど 
うい う 処 理 を し て どう いう 結果 を 得 た い の か を 明確 に し て お いて くだ さい 。 

次 に , コ ンピュータ に させ た いと と は は っ きり し て も 。, 慣れ な いう ち は そ れ を BASIC で 表現 する の は 困難 
な こと が あり ます . また, 実際 に キー ボー ド か ら プ ログ ラム を 入力 する と き に 間違っ て いる こと も ある で し ょ 
う . こう し た 初歩 的 な ミス を 発見 する た め に BASIC に は さま ざま な エラ ー ト ラッ プ 機 能 が あり ます , プロ グ 
ラム の 実行 中 に , 実行 で き な い 命令 が ある と Syntax error in 10" の よう に メッ セー ジ が 出力 され て 実行 
が 中 断 さ れ ま す . エラ ー メ ッ セ ー ジ の 意味 は “BASIC リフ ァ レ ンス マニ ュ ア ル 付 録 エラ ー メ ー セ ー ジ ” 
まとめ て あり ます の で 。 これ と プロ グラ ム の リス ト を 見 くら べ て みれ ば , つま ら な い 間 違い は まず 取り 除く 
こと が で きま す 。 

*Syntax error′ と Illegal function call′ は 特に 頻出 する エラ ー で す 。 特に “TIllegal function call” は 
エラ ー の 出 た 行 以外 に その 原因 が ある こと が 多く , 修正 が 困難 で す . 例え ば 次 の よう な も の で す 。 


10 DIM A(10) 

20 FOR Ii=0 TO 10 

30 A(1)={ 

40 NEXT 

50 PRINT"X 7~ ン メイ コウ ノ テ デ ~ー タ ブ マエ ニ 3 ツ ス ~ ラ シマ ス " 
60 INPUT"X= リ "1X 

70 FOR I=X TO 10 

80 A(I-3)=A(I) 

90 NEXT 


X の 値 と し て 2 以下 を 入れ る と エラ ー が 80 行 で 出 ま す が , この 行 は 間違っ て いま せん 。 これ は 変数 I が 3 
以下 に な ら な いよ うに だ, 60 行 あたり を 工夫 する 必要 が あり ます 。 

*Syntax error” の 方 も 次 の よう な 2 つの ケー ス に 限っ て エラ ー 発 生 の 行 自体 は 正しい と いう こと が あり 
ます . 


10 READ A 
20 PRINT A 
30 DATA B 
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エラ ー は 30 行 で 出 ま す が , その 原因 は 10 行 の READ 文 で 数 値 を 読も うと し て いる こと に よる 場合 が あり ま 
す . デー タ は 文字 型 の *B? に な っ て いる か ら で す 。 
も う 一 つ は 


10 DEF FNA(B,C)=5※(B+(C-2) 
20 PRINT FNA(5) 


の よう な 場合 で す . 
エラ ー は 20 行 で 出 ま す が , 実際 の Syntax error は 10 行 (か っ こ が 1 つ 足 りな い ) に あり ます . 


7.2 PRINT,STOP,INPUT$ も を 使っ て の デバ ッ グ 


初歩 的 な デパ ッ グ で は , これ ら の 命令 を デパ ッ グ の た め に プロ グラ ム 中 に 入れ て お く こ と が よく あり ます ., 
例え ば 10 個 の 乱数 (0 て 9 の 整数 ) を 配列 に 代入 し , ゆっ くり と 表示 し よう と し た と し ます 。 


10 DIM A(10) 

20 FOR !=1 TO 10 

30 A(1)=INT(RND※10 ) 

40 PRINT A(I) 

50 GOSUB WAITING 

60 NEXT 

70 END 

680 ※WAITING 

90 FOR 1i=0 TO 1000:NEXT 
100 RETURN 


RUN し て みる と , 数 値 を 1 つ 表 示し て 終わ っ て し まい ます . 気が付い て みれ ば 本 当 に 簡単 な ミス な の で す 
が , これ が も っ と 複 和 雑 な プロ グラ ム の 一 部 だ と , 何時 間 も 「 何 故 だ ろう 」 と 頭 を ひね る こと が 少な く あ り ま 
せん 。 

と の よう な プロ グラ ム の パグ は 例え ば 次 の よう に 見 つけ ます 。 


(1) プ ログ ラム の 実行 に よっ て 変数 が どう 変化 し て いる か , PRINT 文 で 確か め て みる 


先程 の プロ グラ ム の 実行 終了 後 。PRINT I を ダイ レク トモ ー ド で 実行 する と 1002 に な っ て いま す 。 配列 
A の 内 容 を 1 番目 か ら 10 番 目 ま で 表示 する つも り (20 て 60 行 ) が 1002 番 目 と いう と ん で も な い 値 に な っ て い 
ます . これ は 90 行 で 、 た か が 時 間 か せ ぎ の ルー プ と 思っ て あま り 注 目 し な か っ た FOR て NEXT ルー プ で , 
ルー プ カ ウ ンタ ー に 20 行 と 同じ I を 使っ て し まっ た こと が 原因 と わか り ま す . 90 行 の ルー プ が 終わ る と 1 は 
1001 に な り , サ プ ブルー チン か ら 戻 る と 60 行 の NEXT で さら に 十 1 され ます , これ で 20 行 で 宣言 し た FOR 文 
の カウ ンタ 1 は 10 を 超え て し まい 。 ルー プ が 1 回 で 終わ っ て し まう の で す 。 

ルー プ カ ウ ンタ が 不 本 意 に 変化 し て いな いこ と を 確認 する た め に 。 


SS PRINT 1 


の よう な 行 を 一 時 的 に 挿入 し て お く こ と も , よく 行わ れ ま す , この 他 , “Tllegal function call/, “Subscript 
out of range な どの エラ ー が 出 た と きも , まず は エラ ー の 出 た 行 の 変数 の 値 を プリ ント アウ ト し て みる こ 
と が デパ ッ グ の 第 一 歩 で す . 
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(2②) STOP 文 を 挿入 し て みる 


10 個 の 整数 型 の 乱数 を 発生 し 。 小 さい 順に 並べ か えて 表示 する プロ グラ ム を 考え て み ま す . 

1 番目 の デー タ を 最小 と 仮定 し , 2 番目, 3 番目 … と 比較 し て ゆき , より 小さ いも の が あっ た ら 1 番目 と 
交換 し ます . 10 番 目 ま で 比較 し た ら , 最小 の も の は 1 番目 に 入っ て いる の で , 次 は 2 番目 を 2 番目 に 小さ い 
も の と し て 310 番目 と 比較 し て 交換 する と いう 作業 を 繰り 返す と いう アル ゴリ ズム を 使い ます 。 


10 DEFINT A-Z 

20 DIM A(10) 

30 FOR 1!=1 TO 10 

40 A(I)=RNDX10 

50 PRINT USING" 半 持 手 "5A(T)5 
60 NEXT 

70 PRINT:PRINT"SORT!" 

80 FOR 1=1 TO 10 

90 MIN=A(1 ) 

100 FOR J=1 TO 10 

110 IF A(J) く <MIN THEN SWAP A(J) ,A(I):MIN=A(J け ) 
120 NEXT 

130 NEXT 

140 FOR Il=i TO 10 

150 PRINT USING"# 半 "5A(I)5 
160 NEXT 

170 END 


さて この プロ グラ ム を 実行 し て みる と , 何 か 少し 変 で す 。 そこ で 次 の 行 を 追加 し て みて くだ さい 、 


115 PRINT IiJiMIN:STOP 


こう する と 一 回 比較 する ご と に 配列 の 何 番目 と 何 番目 を 比較 し て 最小 の 値 が どう な っ て いる か 知る こと が 
で きま す 。 配列 の 元 デ ー タ は 表示 され て いま す の で , それ を この アル ゴリ ズム で 並べ 換え を る と どう な っ て ゆ 
く か わか る は ず で す . 途中 で 矛盾 が な けれ ば , CONT コマ ンド で 続き を や っ て み ま す . こう し て いる うち に 
MIN の 値 が 正しく な いこ と に 気づけ ば , 110 行 の MIN=A (」) は MIN=A (1I ) の 間違い で ある こと が 
わか る は ず で す . 

この よう な 場合 , 更に 便利 な 関数 INPUT$ を 使う こと も で きま す . 


(3) INPUT$ で 実行 速度 を 操る 


コン ピュ ー タ の 演算 は 非常 に 速い の で 。 どの よう に プロ グラ ム が 進行 し て いる の か わか り に くい こと が あ 
り ま す 。 STOP 文 を 使え を ば 1 ステップ ご ど ご と に 止め る こと も で きま す が , いち いち Break in… と メッ セー ジ が 
で た り , CONT を 入力 し な けれ ば な ら な い の も わずらわし いも の で す . そこ で 先程 の 115 行 を 次 の よう に 替え 
て みて くだ さい . 


115 PRINT 1jJiMIN:A$=INPUT$( 1 ) 
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こう する と 何 か キ ー を 押す ご と に 作業 が 一 歩 一 歩 進 ん で ゆき ます , ルー プ の ある プロ グラ ム で , 何 回 目 か 
に エラ ー が で る よう な も の , 画面 処理 の エラ ー ト ラッ プ な ど に は 最適 な 方 法 で し ょ う . 変数 が ルー プ の 中 で , 
どう 変化 し て ゆく か , 思い の まま の 実行 速度 で 手 に 取る よう に わか り ま す . 画面 を あま り 壊 し た く な いと き 
な ど は PRINT 文 の 前 に LOCATE 文 を 入れ て お く と よい で し ょ う .。 


7.3 TRON ノ TROFF を 使っ て の デバ ッ グ 


プロ グラ ム 実 行 の 流れ が どう な っ て いる か わか ら ず , エラ ー に な っ て し まう こと が あり ます 。 この よう な 
と き に 力 を 発揮 する の が TRON コマ ンド で す 。 次 の プロ グラ ム を みて くだ さい 、。 


10 A=1/3 

20 B=1/3 

30 C=1/3 

40 IF A+B+C=1 THEN 70 

50 PRINT"1/3+1/3+1/3 く >17 ソン ナハ "カナ 1" 
60 END 

70 PRINT"1/3+1/3+1/3= 1 ここ キマ ッ テ イ ル " 
80 END 


1/3 を 3 回 足せ ば 1 に な り そ う な も の で す が , コン ピュ ー タ の 内 部 で は 1/3 の よう な 小数 は 正確 に 記憶 で き 
な い の で 僅か な 誤差 が 伴い , A 填 B 十 C=0.9999… の よう に な り 40 行 の IF 文 は 成立 し ませ ん . 従っ て プロ グ 
ラム の 実行 は 70 行 へ は 移り ませ ん . TRON コマ ンド を ダイ レク トモ ー ド で 実行 し て か ら RUN する と … 


TRON 

Ok 

RUN 

[101[201[301[401[5011/311731173 の 12 9 1! 
[60] 「 

Ok 


確か に 40 行 の 次 は 50 行 に 制御 が 移っ て いま す . 

と の よう に プロ グラ ム の ある 部 分 が 実行 され て ぃ いるか, 予想 外 の 行 に 制御 が 移っ て いな いか を 知る た め に 
は TRON コマ ンド を 使う の で す 。 こ の コマ ンド は プロ グラ ム 実 行 終了 後 も 有効 で す . 必要 で な く な っ た ら 
TROFF を 忘れ て は な り ま せん . 
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7.4 エラ ー 処 理 ル ー チ ン 


エラ ー 処 理 ル ー チ ン は ON ERROR GOTO 文 で 宣言 する も の で , 一 般 的 な 使い 方 は 。 プ ログ ラム 実行 中 に 
お ける ユー ザー の 入力 ミス を 防ぐ ,。 エラ ー の 特殊 な ケー ス を 処理 する ,。 な ど で 例 えば 次 の よう な も の で す 。 


10 ON ERROR GOTO 100 
20 INPUT X 

30 PRINT "SQR(X)="i 
40 PRINT SQR(X) 

S0 GOTO 20 

100 X=-X 

110 PRINT"i"i 

120 RESUME 


これ で 負 の 値 の 根 も 虚数 i n と し て 表示 で きる の で す が , デパ ッ グ 中 に は と ん で も な い エ ラー の 原因 と な 
る こと が あり ます 。 例え ば 20 行 を 


20 INPUT "X" 


と し て か ら RUN し て みる と 20 行 と 100 行 以下 で 無限 ルー プ が で き て し まい ます (TRON コマ ンド を 利用 
する と よく わか る ). こ れ は 20 行 で Syntax error が 発生 し た の に 100 行 以下 の エラ ー 処 理 ル ー チ ン で は 双 が 人 負 
だ か ら , 正 の 値 に し て や れ ば 良い と いう 見 当 違 い の 手 当 を し て 同じ 箇所 に 戻る の で ,。 ルー プ に な っ て し まう 
の で す . ON ERROR GOTO 文 を 使う プロ グラ ム は 初め , 


10 "ON ERROR GOTO 100 


の よう に し て 十分 試行 し て みて 。 予想 外 の エラ ー が で な いこ と を 確認 し て か ら 使 っ た 方 が 安全 で す 。 また 
処理 ルー チン の 先頭 で 


100 IF ERR= _ AND ERL= __ THEN 処理 :RESUME 
110 PRINT ERR:PRINT ERL 
120 END 


の よう に し て お け ば 予定 の エラ ー は 処理 し 。 それ 以外 は 修正 する た め た に 。, 実行 を 中 止 す る こと が で きま す 。 
特殊 な ケー ス で エラ ー の で る よう な プロ グラ ム で は 有効 な 方 法 で し ょ う . この と き , ERR コー ド は 数 字 で す 
が , ERROR ERR を 実行 すれ ば それ に 対応 する エラ ー メ ッ セ ー ジ を 出す こと が で きま す . また 120 行 の END 

(ON ERROR GOTO 0 で も よい ) 文 を 省略 する と No RESUME” エラ ー に な り , デバ ッ グ の 役目 を 果 
せな く な っ て し まい ます 。 
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グ S : お よび プ F : スイ ッ チ を 有効 に し ます ./ 1 が 指定 され て いな いと , ブ S :, プ F : 両 ス イッ チ は 
その 効力 を 失い ます 。 

N,。。-BASIC は , ファ イル 操作 を 行なう た め に 必要 な 領域 を , ダ イナ ミッ ク に 割り 付け ます . こ と の た め 。 
N,。。-BASIC で は 本 来 プ S : お よび プ F : スイ ッ チ を サポ ー ト する 必要 が あり ませ ん . しかし, BASIC 
プロ グラ ム に よっ て は , デー タ 構 造 が 静 的 (スタ ティ ッ ク ) で ある よう に 書か れ て いる も の も あり ます . 
こう し た BASIC プロ グラ ム と の コン パチ ビリ ティ を 保つ た め 。 Ni,。。-BASIC で は , プ 1I ス イッチ を 指定 
し た と き に 限り , プ S : お よび ンプ F : スイ ッ チ が 有効 と な り , フ ァイル 操作 の た め の 領域 を スタ ティ ッ ク 
に 割り 付け る こと が で きる よう に な っ て いま す 。 


グ F : < ファ イル 数 > 

この スイ ッ チ は , ノ エス イッ チ が コマ ンド 行 に 指定 され て いな けれ ば , 無視 され ます . 

この スイ ッ チ と プ 1I ス イッチ が 指定 され る と, BASIC プロ グラ ム の 実行 中 同時 に 開く こと の で きる 最 
大 ファ イル 数 が 定め られ ます , 各々 の ファ イル は , ファ イル コン トロ ー ル プロ ッ ク (FCB) 用 に 62 バ イ 
ト , フ ァイル バッ ファ 用 に 128 パ イト 必要 と し ます 。、 こ の ファ イル バッ ファ の サイ ズ は グ S:・ ス イッ チ に 
よっ て 変え る こと が で きま す . ン F : スイ ッ チ が 指定 され て いな い 場 合 、 フ ァイル 数 に は 3 が セッ ト さ れ 
肖 す 。 

MS-DOS の サポ ー ト する オー プン 可能 な ファ イル 数 は , CONF1IG.SYS ファ イル 中 の “FILES=” パ 
ラメ ー タ に よっ て 指定 され た 数 に より 決ま り ま す 。BASIC 用 と し て は ^FILES=10* を 指定 し て お く と 
よい で し ょ う 。 最初 の 3 ファ イル は , 標準 入出 力 デ パイ ス (キー ボー ド お よび ディ スプ レイ 画面 ) 用 や 
プリ ンタ 用 と し て 使わ れ ま す ,. さら に 1 ファ イル が LOAD, SAVE, CHAIN。NAME, MERGE 各 文 
の 処理 用 と し て 使わ れ ま す . し た が っ て , 残り の 6 ファ イル を ユー ザー 用 の ファ イル と し て 使用 する こ 
と が で きま す , すなわち , CONFIG.SYS ファ イル 中 に FILE ニ 10 が 指定 され て いる と き に は , ノ FE ・ 
6 が , MS-DOS で サポ ー ト で きる 最大 ファ イル 数 と な る わけ で す .。 

すべ て の ファ イル を 使い 果して (オー プン し て ) か ら , さら に ファ イル を 開 こ うと する と , “Too many 
fles” エラ ー が 生じ ます . 


グ S : < ファ イル バッ ファ サイ ズ > 
この スイ ッ チ は , ノ 1 スイ ッ チ が コマ ンド 行 に 指定 され て いな けれ ば , 無視 され ます . 
この スイ ッ チ と ノノ 1 スイッチ が 指定 され る と , ラン ダム ファ イル で 使用 は れる ファ イル バッ ファ サイ 
ズ が 定め られ ます . 
OPEN 文中 の レコ ー ド サイ ズ 指 定 用 オプ ショ ン は , この 値 を 超 し て は な り ま せん ./S : オプ ショ ン が 
省略 され た 場合 )。 デ フォ ルト の レコ ー ド サイ ズ は 128 バ イト と な り ま す . 


グ M : (メモリ の 上 限 >] 〔。 < 最大 プロ ッ ク サ イズ >〕 

この スイ ッ チ を 指定 する と , BASIC に よっ て 使用 され る メモ リ の 上 限 ア ドレ ス が セッ ト さ れ ま す . 機 
械 語 サ プル ー チ ン を BASIC プロ グラ ム と 共に 使用 し た い 場 合 , この プ M : スイ ッ チ に より BASIC が 
使用 する メモ リ の 上 限 を セッ ト す る 必要 が ある 場合 が あり ます . この スイ ッ チ が 省略 され る か 。 < メモ リ 
の 上 限 > に 0 が 指定 され る と , BASIC の 使用 で きる 最大 値 @&HFFFF (65535) が 上 限 と し て セッ ト さ れ 
まま 9 

メモ リ の 上 限 よ り 上 の 領域 に 何 か ロ ー ド し た い 場 合 は , そ れ ら の 領域 を 確保 むせる た め の パ ラメ ー タ < プ 
ロッ クサ イズ >〉 を 使い ます 。 


グ ら : 


例 ) 
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く < プロ ッ ク サ イズ 〉 は 。 パラ グラ フ (16 バ イト の 倍数 ) 単位 で な く て は な り ま せん 。 省略 時 に は , 選 
H1000 (4096) が 想定 され , これ に よっ て 65536 (4096 * 16) バイ ト が BASIC 用 の エリ ア と し て 割り 
付け られ ます . 

例え ば , 65536 バ イト を BASIC に , 512 バ イト を 機械 語 サ プル ー チ ン 人 割り 当て た い 場 合 に は , バン 
M : , 層 H1010′ (BASIC に 4096 パ ラグ ラフ , 機械 語 サ プル ー チ ン に 16 パ ラグ ラフ の 意 ) を 指定 し ます . 

また この オプ ショ ン は , SHELL 文 に よっ て ロー ド され る 他 の プロ グラ ム 用 に メモ リ を 開放 する た め 
に , BASIC 用 の プロ ッ ク を 小さ くす る よう に 使う こと も で きま す 。 

\ グ M : , 2048" は 。 デ ー タ お よび スタ ッ ク 用 に 最大 32768 パ イト の 領域 を 割り 付け る ,。 と いう こと に 
な り ま す . 

* グ M : 32000, 2048” は , 最大 32768 バ イト を 割り 付け る が , BASIC が 使用 する の は 下 の 32000 バ イ 
ト で あり , 残り の 768 バ イト は, ユー ザー が 自由 に 使用 で きる , と いう 意味 と な り ま す 。 


(通信 バッ ファ サイ ズ > 

この スイ ッ チ は , RS232C 通 信 回 線 用 の 受信 バッ ファ サイ ズ を 設定 する も の で す . < 通信 パッ ファ サイ 
ズ > に 0 を 指定 する と , RS232C 通 信 回 線 は サポ ー ト され な く な り ま す 。 

グ C : スイ ッ チ が 省略 され る と , 受信 バッ ファ の サイ ズ は 256 バ イト と な り ま す . 


BASIC PAYROLL 
3 個 の ファ イル を 使用 する 環境 下 で ,。 PAYROLL.BAS を ロー ド し , 実行 し ます . 


BASIC INVENT/F : 6 
6 個 の ファ イル を 使用 する 環境 下 で , INVENT.BAS を ロー ド し , 実行 し ます . 


BASIC/F : 4 ブ S : 512 
4 個 の ファ イル の 使用 を 許し ,。 ラン ダム ファ イル の レコ ー ド サイ ズ を 512 パ イト と し ます . 


BASIC TTY プ C : 512 
3 個 の ファ イル を 使用 する 環境 下 で , RS232 受 信 パ ッ フ ァ を 512 バ イト に , 送信 パッ ファ を 128 パ バッ ファ 
に 割り つけ 。 TTY.BAS を ロー ド し , 実行 し ます ., 


BASIC プ C : 0 ン M : 32768 

RS232C 通 信 回 線 の サポ ー ト は 行わ ず , BASIC は は じ め の 32 k バ イト だ け 使 用 し ます . し た が っ て 32k 
バイ ト を 超え る 領域 は ユー ザー に 開放 きれ ます の で , 機 械 語 サ プル ー チ ン な ど を ここ に 置く こと が で き 
ます , 
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8.2 入出 力 の リダイレクト 


BASIC の コマ ンド 行 に , 入力 ファ イル 名 , 出力 ファ イル 名 を 指定 する こと に より , 標準 の 入力 ,。 出力 デ パ 
イス で ある キー ボー ド , ディ スプ レイ 画面 を 。 それ ぞ れ 他 の デバ イス ある い は ファ イル に お きか える こと が 
で きま す . 

BASIC の コマ ンド 行 を 示し ます ,. ここ で は スイ ッ チ 類 を 省略 し て あり ます . 


BASIC 〔【< プ ログ ラム ファ イル 名 >〕 
[くく < 入力 ファ イル 名 >〕 〔[>〕)> < 出力 ファ イル 名 >) 


< プロ グラ ム フ ァ イル 名 > に は , BASIC 起動 後に 実行 させ る プロ グラ ム の 名 前 を 指定 し ます 。 

指定 され た プロ グラ ム 内 に ,。 キー ボー ド か ら の 入力 (INPUT 文 , LINE INPUT 文 」INKEY3$ 関 数 , 
INPUT 関 数 。 INPUT\ 関 数 ) ある い は ディ スプ レイ 画面 へ の 出力 (PRINT 文 , PRINT USING 文 , 
WRITE 文 ) に 関す る ステ ー ト メン ト や 関数 が 含ま れ て いる 場合 , 後述 の リダイレクト に よる 入出 力 が 行わ れ 
る こと に な り ま す . 

< 入力 ファ イル 名 > を 指定 する 場合 は 。 その 前 に ヾ < く ? を つけ 加え ます , この リダイレクト 入力 ファ イル が 
指定 され る と , BASIC の 起動 と 共に , 前 述 の く プ ログ ラム ファ イル 名 > に よっ て 指定 され た プロ グラ ム が ロー 
ド され , 実行 が 開始 きれ た と き に 次 の よう な 現象 が 生じ ます . 


* ジロ グラ ジ ム 内 代 。 

INPUT 

LINE INPUT 

IN KEY$ 

INPUT$ 

INPUT 
の 各 文 が ある と , キー ボー ド 入 力 の 代り に , < 入力 ファ イル 名 > で 指定 され た リダイレクト 入力 ファ イ 
ル か ら デ ー タ を 読み 込み ます , この と き , BASIC は <CTRL-Z> コー ド (CHR$ (&H 1 A)) を 検出 
する まで , その ファ イル か ら デ ー タ を 読み 続け ます . ファ イル が <CTRL-Z> コー ド で 終結 され て い 
な か っ た り , プロ グラ ム 内 の 上 記 の 各 文 が ファ イル の 終端 を 過ぎ た 後 を さら に 読み 進 も うと し た り し 
た 場合 , 開か れん て いる すべ て の ファ イル は 閉じ られ , “Read past end′” エラ ー が ディ スプ レイ 画面 に 
出力 され て , BASIC は DOS に 戻り ます . 
逆 に 。 プロ グラ ム 内 の 上 記 の 各 文 に より 読み 込む デー タ の 数 より リダイレクト 入力 ファ イル 中 の デー 
タ の 方 が 多かっ た 場合 は 。 余っ た デー タ は BASIC に 対す る ダイ レク トモ ー ド で の 入力 と みな され ま 
を 記 


・ プロ グラ ム 内 で , キー 割込み 処理 が 定義 る S8 れ て いる 場合 は 。 リ ダイ レク ト の 入力 ファ イル に 関係 な く , 
キー ボー ド か ら の 入力 に よる キー 割込み は その 効果 を 失い ませ ん 。 


・ < 入力 ファ イル 名 > に ^KYBD : ” を 指定 し た 場合 は , キー ボー ド か ら 入 力 さ れる デー タ が 読み 込ま 
れ ま す . 


・ リダイレクト 入力 ファ イル の 指定 が され た と き は , プロ グラ ム の 実行 が 終了 する と , DOS に 制御 が 戻 
り ま す 。 
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く < 出力 ファ イル 名 > を 指定 する 場合 , その 前 に パ >′ を 1 つま た は 2 つつ け 加 を え ます. この リダイレクト 出 
力 フ ァイル が 指定 され る と , BASIC の 起動 と 共に 前 述 の < く プ ログ ラム ファ イル 名 > に よっ て 指定 され た プロ 
グラ ム が ロー ド さ れ , 実行 が 開始 され た と き に 次 の よう な 現象 が 生じ ます 。 


・ プロ グラ ム 内 に , 
PRINT 
PRINT USING 
WRITE 
の 各 文 が ある 場合 , これ ら の 文 に よっ て 出力 され る デー タ は , ディ スプ レイ 画面 に 表示 され る と 共に 。 
< 出力 ファ イル 名 > で は 指定 され た リダイレクト 出力 ファ イル も 書き 込ま れ ま す . 


・ < 出力 ファ イル 名 > に SCRN :” を 指定 し た 場合 は ,。 デー タ は ディ スプ レイ 画面 に 表示 され る の み と 
な り ま す 。 


< 出力 ファ イル 名 〉 の 前 に パ > ッ > を 指定 し た 場合 , リ ダイ レク ト 出 力 さ れる デー タ は , ファ イル に 追 
加 書 込み (アペンド ) され ます . 


この よう に 。 入出 力 の リダイレクト を 指定 する こと に より , 例え ば 定型 化 さ きれ た デー タ を 入力 する と き な 
ど に キー 入力 の 代り に ファ イル か ら 読 み 込ま せ た り , ディ スプ レイ 画面 に 出力 され る デー タ を ファ イル に 
と っ て お いた りす る こと が 可能 と な り ま す 。 

な お ,。 リ ダイ レク ト に よる プロ グラ ム の 実行 中 に , [STOP| キー ある い は | CTRL [|C| を 押す と, 開か れ て 
いる すべ て の ファ イル は 閉じ られ ,。 メッ セー ジ “Break in line xxxx′” が ディ スプ レイ 画面 に 出力 され て , 
BASIC は DOS に 戻り ます . 

また , エラ ー メ ッ セ ー ジ は , リダイレクト 出力 ファ イル に 書き 込ま れる こと は な く , 常に ディ スプ レイ 画 
面 に の み 出力 され ます . 


例 ) BASIC MYPROG> DATA.OUT 
INPUT 文 , LINE INPUT 文 な どの 入力 文 は 。 キー ボー ド か ら 入 力 さ れる デー タ を 読み ます 。 PRINT 
文 に よる デー タ 出 力 は ファ イル DATA.OUT に 書き 込ま れ ま す 。, 


BASIC MYPROG く DATA.IN 
INPUT 文 。 LINE INPUT 文 な どの 入力 文 は 。 ファ イル DATA.IN か ら デ ー タ を 読み ます 。 PRINT 
文 は 。 ディス プレイ 画面 に デー タ を 出力 し ます . 


BASIC MYPROG く MYINPUT.DAT>MYOUTPUT.DAT 
INPUT 文 , LINE INPUT 文 な どの 入力 文 は 。 ファ イル MYINPUT.DAT か ら デ ー タ を 読み , PRINT 
文 は ファ イル MYOUTPUT.DAT に デー タ を 書き 込み ます , 


BASIC MYPROG ぐ \SALES\JOHN\TRANS > >\SALES\SALES.DAT 
INPUT 文 , LINE INPUT 文 な どの 入力 文 は 。 ファ イル ぎ \SALES ぎ JOHN ぎ TRANS か ら デ ー タ を 読 
み ま す . PRINT 文 は ファ イル \SALES\SALES.DAT に デー タ を 追加 書き 込み (アペンド ) し ます . 
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第 章 
機械 語 プ ログ ラム の 使い 方 


N,。。-BASIC に は 機械 語 プ ログ ラム を 使う た め の 機 能 と し て , POKE, BLOAD, BSAVE, CALL, DEF SEG 
の 5 つの 文 と , PEEK, USR, VARPTR の 3 つの 関数 が 用 意 さ きれ て いま す . ここ で は , 機械 語 プ ログ ラム に 使う 
メモ リ の 確保 の 方 法 , 機械 語 プ ログ ラム の メモ リ へ の 格納 の 方 法 , 機械 語 プ ログ ラム の 呼び 出し 方 , お よび 機械 
語 プ ログ ラム と BASIC プロ グラ ム の 間 の デー タ の 受渡 し の 方 法 に つい て 説明 し ます 。 

な お ,。 ここ で の 説明 を 正しく 理解 する に は 8086 の 機械 語 命令 、 お よび メモ リア ドレ ッ シ ン グ に つい て の 知識 を 
必要 と し ます 。 


9.1 メモ リ の 確保 


機械 語 プ ログ ラム を 使う に は 。 まず その た め の 領 域 を メモ リ 内 に 確保 する こと が 必要 で す . 
まず 最初 に BASIC お よび DOS が,。 ど の よう に メモ リ を 使っ て いる か を 説明 し まし ょ う . 次 の メモ リマ ッ 
プ を 見 て くだ さい 。 


メモ リ の 上 上 限 


RAM デ ィ ス ク 


未 使用 領域 


BASIC の ワー クス ペー ス 


BASIC イ ンタ プリ タ 


イン スト ー ル され た ドラ イ バ 


DOS 
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この 図 の “BASIC ワー クス ペー ス ” と は ,。 BASIC の プロ グラ ム と デー タ (変数 ) を 格納 する た め に 用 い 
られ る 領域 で 。 その 大 き さ は 最大 64k バイ ト で す 。 メモ リ の 最上 部 に は "RAM ディ スク * の 領域 が あり , そ 
の 大 き さ は DOS の 立ち 上 げ 時 に 決め られ ます RAM ディ スク の 量 の 設定 に つい て は MS-DOS ユー ザー ズ 
ガイ ド の SETUP コマ ンド を 見 て くだ さい , ワー クス ペー ス と RAM ディ スク の 間 の 領域 は BASIC で は 使 
われ ませ ん 。 つ まり, この ` 示 使用 領域 ” が 機械 語 プ ログ ラム で 使え る メモ リ に な り ま す 。 

未 使用 領 城 の 大 き さ は DOS の CHKDSK コマ ンド で 調べ た 使用 可能 な メモ リ の 量 か ら BASIC の イン 
ター プリ タ の 大 きき ( 約 72000 パ イト ) と BASIC の ワー クス ペー ス (デフ ォ ル ト は 65536 パ イト ) を ひい た 値 
で す . この 値 が 機械 語 プ ログ ラム に 必要 な メモ リ 量 以上 あれ ば , この 領域 を 機械 語 プ ログ ラム 用 と し て 使用 
する こと が で きま す 。 

未 使用 領域 が 十分 に な い 場 合 は , BASIC の ワー クス ペー ス を 小さ くす る 必要 が あり ます , この 目的 の た め 
に は , BASIC の 起動 時 に プ M : スイ ッ チ を 使用 する か , また は BASIC 上 で CLEAR 文 を 使い ます . プ M : ス 
イッ チ で 指定 する メモ リ の 上 限 。 ある い は CLEAR 文 の 第 2 パラ メー タ は , BASIC が 使う ワー クス ペー ス の 
量 を 決定 し ます . た と えば , CHKDSK コマ ンド で 調べ た 使用 可能 な メモ リ 量 が 120000 パ イト で, 機械 語 プロ 
グラ ム に 1024 パ イト 必要 な と き に は , ワー クス ペー ス の 量 を , 120000 一 72000 一 1024 三 46976 パ イト に し ます . 
すなわち , BASIC を 起動 し た 後 で , 


CLEAR , 46976 
と 指定 する か 。 また は BASIC の 起動 時 に , 
BASICM: 46976 


と 指定 し ます . 

さて , これ で 機械 語 プ ログ ラム に 必要 な 領域 が 確保 で きま し た . 次 に その 領域 が メモ リ の どこ に ある か を 
知る 必要 が あり ます . メモ リ の 上 限 番地 は PC-100 に 実装 きれ て いる メモ リ の 量 か ら わ か り ま す . 368K パイ 
ト の シス テム な ら ば 5FFFFH 番地 で す 。RAM ディ スク の 量 が 128K バイ ト (20000H) な ら ば , RAM ディ ス 
ク の 先頭 番地 は 40000H 番地 で す . この 値 か ら 確 保 し た 機械 語 プ ログ ラム 領域 の 大 き さ を ひけ ば その 領域 の 
先頭 番地 が 求 ま り ます 。 その 大 き さ が 1024 バ イト (400H) な ら ば 3FC00H 番地 。 すなわち , 3FC0O : 0000 番 地 
が 機械 語 領域 の 先頭 番地 に な る わけ で す . 


9.2 機械 語 プ ログ ラム の 格納 


機械 語 プ ログ ラム を メモ リ に 格納 する に は POKE 文 , また は BLOAD 文 を 使い ます . 

POKE 文 を 使う に は , セグ メン トペ ー ス を DEF SEG 文 で 指定 し て お く 必 要 が あり ます . POKE 文 で 指 
定 され る 番地 は ,。 その セグ メン トペ ー ス の 中 か ら の オフ セッ ト 値 と 解釈 され ます 。, 

POKE 文 を 使っ た 機械 語 プ ログ ラム の 例 を 示し ます , この プロ グラ ム は 機械 語 プ ログ ラム を 3FC0O : 0000 
番地 か ら 格 納 し 実行 し ます . 
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プロ グラ ムリ スト 
1 閣 * 
20 ' POKE 文 に よる 機械 語 プ ログ ラム の 作成 
30 " 
し 1 
50 " セグ メン ト 番 地 の 設 定 
60 " 
70 ' 機械 語 プ ログ ラム は 3FCO:O0000 番 地 か ら 始 まる 
80 " 
90 " 
100 DEF SEG=&H3FC0 
4 信 " 
120 ' 機械 語 プ ログ ラム の 書込み 
130 * 
140 FOR A=0 TO 34 
150 READ A$:POKE A,VAL("&H"+A$) 
160 NEXT A 
170 CLS 
180 LOCATE 10,1:PRINT "Look at the "5 
190 " 
200 ' 標 械 語 プ ログ ラム の 実行 番地 の オフ セッ ト の 設定 
210 * 
220 DEF USR=0 
230 * _- 
240 ' 機械 語 ブ プロ グラ ム の 実行 
250 ・ 
260 AUSR(0 ) 
270 LOCATE 10,20:PRINT "1etters" 
280 END 
290 * _ 
300 ' 機械 語 プ ログ ラム 
和 “ 
320 '" "BIG" と いう 文字 列 を 縦横 を 倍 の 大 き さ で 書く 
330 * 
340 * _ 
350 ' MOV CL, 18H *′ 横幅 を 倍 に する モー ド に 入る 
360 ' INT 0ODCH ′ ソフ トウ ェ ア 割 込み の 220 で B IOS を 呼ぶ 
3 写 “ 
380 DATA b1,18,cd,dc 
390 * 
400 ' MOV CL,1AH ′ 高 さ を 倍 に する モー ド に 入る 
410 ' INT 0ODCH 
420 * 
430 DATA bl,1a,cd,dc 
440 * 間 
450 ' MOV AL,"B" *′ "B" を 表示 する 
460 ' MOV CL,10H 
470 ' INT 0ODCH 
480 
490 DATA b0,42,b1,10,cd,dc 
500 * 
510 ' MOV AL,"C" ′ "1 "を 表示 する 
520 ' MOV CL,10H 
530 ' INT ODCH 
540 " 
550 DATA b0,49,b1,10,cd,dc 
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560 


570 ' MOV AL,"G" * "G" を 表示 する 

580 ' MOV CL,10H 

590 ' INT 0DCH 

600 " 

610 DATA b0,47,b1,10,cd,dc 

620 " 

630 ' MOV CL, 19H *′ 横幅 を 普通 の サイ ズ に 戻す 
640 ' INT 0ODCH 

650 * 

660 DATA b1,19,cd,dc 

670 * 

680 ' MOV CL,1BH ′ 高 さ を 普 通 の サイ ズ に だ 戻す 
690 " INT 0DCH 

700 " 

710 DATA bl,1b,cd,dc 

ルフ 

730 ' RETF *′ 機械 語 プ ログ ラム は 

740 ・ 必ず “FARRET" で 終了 
750 DATA cb 

Fun 

Look at the BIG letters 

Ok 


BLOAD 文 を 使っ て 機械 語 プ ログ ラム を メモ リ に 格納 する と き に は , あら か じ め , 機械 語 プ ログ ラム ファ 
イル を 作っ て お く 必 要 が あり ます .。 以下 の 例 の よう に , まず POKE 文 で メモ リ に 機械 語 プ ログ ラム を 書い て 
お き 。 それ を BSAVE 文 で ファ イル に し ます . 一 度 機械 語 プ ログ ラム ファ イル を 作れ ば , その プロ グラ ム を 
使う プロ グラ ム で は 単に その ファ イル を BLOAD 文 で 読み 込む だ け で , 機械 語 プ ログ ラム を メモ リ に 格納 す 
る こと が で きま す 。 


プロ グラ ムリ スト 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 DEE SEG=&H3FCO 

110 " 

120 '" まず , 機械 語 プ ログ ラム を POKE 文 で 書き 込む 
130 * 

140 FOR A=0 TO 34 

150 READ A$:POKE A,VAL("&H"+A$) 

160 NEXT A 

200 " 

210 ' メモ リ 上 の 機械 語 プ ログ ラム を ファ イル に 青き 込む 


BSAVE 文 に よる 機械 語 プ ログ ラム ファ イル の 作成 


セグ メン ト 番 地 の 設定 
機械 語 プ ログ ラム は 3FCO0:0000 番 地 に 作ら れる 


で 


220 
230 
260 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
S30 
S40 
5S0 
560 
570 
580 
590 
600 
610 
620 
630 
640 
6S0 
660 
670 
680 
690 
700 
710 
720 
730 
740 
7S50 
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BSAVE "BIGCHAR.COD" ,0,35 


END 
機械 語 ブ ログ ラム 


"BIG" と いう 文字 列 を 縦横 を 倍 の 大 き さ で 圭 く 


MOV CL, 18H 
INT 0ODCH 


′ MOV CL,1AH 
′ INT 0ODCH 


DATA b1,1a,cd,dc 


MOV _ AL,"B" 
MOV CL,10H 
INT 0ODCH 


ATA b0,42,b1,10,cd,dc 


MOV CL, 10H 


MOV AL,"C" 
INT 0DCH 
を 


ATA b0,49,b1,10,cd,dc 


′ MOV AL,」"G" 
′ MOV CL,10H 
′ INT 0ODCH 


DATA b0,47,b1,10,cd,dc 


′ MOV CL, 19H 
′ INT 0DCH 


9 


DATA b1,19,cd,dc 


′ MOV CL,1BH 
′ INT 0ODCH 


9 


DATA b1 ,1Db, cd,dc 


” RETP 


' 


DATA cb 


DATA b1,18,cd,dc 


*′ 横幅 を 倍 に た する モー ド に 入る 
′ ソフ トウ ェ ア 割 込 の 2 20 で BIOS を 呼ぶ 


′ 高 さ を 倍 に する モー ド に 入る 


・"B" を 表示 する 


・" 1" を 表示 する 


す "G "を 表示 する 


' 横幅 を 普通 の サイ ズ に 戻す 


' 高 さ を 普通 の サイ ズ 戻 す 


′ 機械 語 プ ログ ラム は 必ず 
必ず “FARRET” で 終了 
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プロ グラ ムリ スト 


10 * 

20 " BLOAD 文 に よる 機械 語 プ ログ ラム の 作成 

30 * 

40 * _ 

50 " セグ メン ト 番 地 の 設 定 

60 ・ 

70 ' 機械 語 プ ログ ラム は 3FCO:0000 番 地 に 作ら れる 

80 ・ 

90 * 

100 DEF SEG=&H3FC0 . 

110 " 

120 ' 機械 語 プ ログ ラム ファ イル を 読み 込む 

130 " 

140 BLOAD "BIGCHAR .COD" , 0 ・ 確実 に DEF SEG 文 で 
150 指定 し を セグ メン ト に 
160 * 読み 込ま れる よう に , 
170 '′ OEFSET 0 を 指定 する 
180 LOCATE 10,10:PRINT "Look at the "5 

190 DEF USR=0 

200 A=USR( 0 ) 

210 LOCATE 10,29:PRINT "1etters" 

220 END 


BLOAD 文 を 使う 場合 、 フ ァイル が 実際 に ロー ド され る 絶対 アド レス は BLOAD 文 の 第 2 パラ メー タ ( オ 
フ セ ッ ト 番 地 ) の 有無 で 変わ り ま す , 上 の 例 の よう に 。 オ フ セ ッ ト 番 地 を 指定 し た 場合 に は DEE SEG 文 で 
指定 し た セグ メン トペ ベース に その オフ セッ ト 番 地 を 加え た 値 が 実際 の ロー ド 番 地 と な り ま す . オフ セッ ト 番 
地 を 省略 し た 場合 は 。 そ の ファ イル を BSAVE 文 で セー プ し た と き の ア ドレ ス が その まま 使わ れ ま す . す な 
わ ち その 時 点 で の セグ メン トペ ベー ス に BSAVE 文 の 第 2 パラ メー タ で 指定 し た オフ セッ ト 番 地 を 加え た 値 
が 実際 の ロー ド 番 地 と な り ま す 。 


9.3 USR 関 数 に よる 機械 語 プ ログ ラム の 呼び 出し 


機械 語 プ ログ ラム は USR 関数 。 また は CALL 文 で 呼び 出し ます . 
機械 語 プ ログ ラム が USR 関数 で 呼び 出さ れ た と き に は AL レジ スタ に USR 関数 の 引数 の 型 を 示す 情報 
が は いっ て いま す 。 AL の 値 と 型 の 関係 は 次 の よう に な っ て いま す . 


AL の 値 引数 の 型 


2 


3 
4 
8 


整数 
文字 
単 精度 実数 
倍 精度 実数 


引数 が 数 値 の と き , すなわち AL が 2, 4, 8 の と き に は 引数 の 値 は FAC( 浮 動 小 数 点 ア キュ ムレ ー タ ) 
と 呼ば れる 8 バイ ト の 領域 に 格納 され て お り , と の と き BX レジ スタ に この FAC の オフ セッ ト 番 地 。 DS レ 
ジス タ に その セグ メン ト 値 が は いっ て いま す . 引数 は FAC の 中 に 以下 に 説明 する よう に 格納 され て いま す . 
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① 整数 型 の と き (AL= 2) 


1 1 


(DS : BX 十 2]  【DS: BX 十 3]〕 
数 値 は 16 ビ ッ ト の 2 の 補 数 表現 で す 。 
② 単 精度 実数 型 の と き (AL= 4 ) 


2 仮数 の 上 位 仮数 の 中 位 仮数 の 下位 
1 (第 1) バ イト パイ ト バイト 
1 1 

[DS : BX〕 [DS : BX 十 3〕 


数 値 は 10 進 の 浮動 小数 点 形 式 で , 指数 部 の MSB (最上 位 ビ ピット) が 仮数 の 符号 , 指数 部 の 残り 7 ビッ 
ト が 示す 数 ( 2 進 表 現 ) 一 64 が 実際 の 指数 の 値 で す . 仮数 部 は 24 ビ ピット 長 で ,。 4 ピッ ト が 1 桁 の 数 を 表 
し 。 上 位 バ イト の MSB の 左 に 小数 点 が ある と みな され ます . 

た と えば , 引数 が 0.123456 の と き ,。FAC に 渡さ きれ る 引数 の 表現 は 次 の よう に な り ま す 。, 


1 1 
【pS : BX〕 【DS : BX 十 3〕 


引数 が 一 0.123456 の と き は 引数 は 次 の よう に な り ま す 。 


1 


〔DS : BX〕 【DS : BX 十 3〕 


⑬ 倍 精 度 実数 刑 の と き (AL=8) 


指 委 部 仮数 の 最上 位 仮数 の 最 下 位 
ーー (第 1) バ イト (第 7 ) バ イト 
l 1 
【DS : BX〕 [DS : BX 十 7〕 


仮数 部 が 56 ビ ッ ト 長 で ある こと を 除け ば , 単 精度 実数 型 と 同じ 形式 で す . 


④ 文字 型 の と き (AL= 3) 
引数 が 文字 の と き に は , DX レジ スタ が スト リン グ デ ィ ス クリ プ タ と 呼ば れる 3 パイ ト の 領域 の オフ 
セッ ト 番 地 , DS が その セグ メン ト 値 を 持っ て いま す 。 ス トリ ング ディ スク リプ タ の 内 容 は 次 の よう に 
な っ て いま す 。 
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108 


文字 列 の 長き 


【DS : DX 十 |] 文字 列 の 置か れ て いる 領域 の オフ キット 番 地 の 下 位 8 ビ ピット 


〔DS : DX 十 2] 文字 列 の 置か れ て いる 領域 の オフ モット 番地 の 上 位 8 ビット 


な お , 文字 列 そ の も の は スト リン グ デ ィ ス クリ プ タ と 同じ セグ メン ト 内 に あり ます 。 


USR 関数 で 呼び 出さ れ た 機械 語 プ ログ ラム が 値 を BASIC プロ グラ ム に 返す と き に は その 型 が 引数 の 型 
と 同じ で ある こと が 必要 で す . 返す 値 は 引数 と 同じ 形式 で FAC に 格納 し ます . 返す 値 が 文字 列 の と き は 渡さ 
れ た ディ スク リプ タ が 指す 文字 列 の 内 容 を 変え ん る こと は で きま す が 。 長 さ を 変え ん る こと と は で きま せん の で 注 
意 し て くだ さい . 

文字 列 を 変更 する 場合 に は , その USR 関数 の 引数 に 文字 定数 , また は 文字 変数 その も の を 使っ て は いけ ま 


せん . 


た と えば 次 の 例 は 誤り で す 。 


A$= Bad? 
B$ 三 USR(A$) 


必ず 次 の よう に 2 つ 以 上 の 項 か ら な る 「 式 | の 形 に する よう に し て くだ さい 。 


A$= ニ “Good" 


B$=USR(A$ 十 “?) 


USR 関数 で 呼ば れる 機械 語 プ ログ ラム で は 次 の 5 つの 注意 を 守っ て くだ さい 。 


① 


② 


プロ グラ ム は FAR PROCEDURE′ に し ます . すなわち , プロ グラ ム か ら BASIC に 戻る と き に は 
イン ター セグ メン ト の RET 命令 を 使う 必要 が あり ます 。 

すべ て の セグ メン トレ ジス タ の 値 を 保存 し な く て は な り ま せん , 機械 語 プ ログ ラム か ら BASIC に 戻 
る と き に は , すべ て の セグ メン トレ ジス タ の 値 が その プロ グラ ム が 呼ば れ た と き と 同 じ 値 に な っ て い 
る こと が 必要 で す . 

SP (スタ ッ ク ポ イン タ ) の 値 を 保存 する 必要 が あり ます . 

機械 語 プ ログ ラム が 割込み を 禁止 し た 場合 , BASIC に 戻る と き に 再び 割込み 可能 状態 に 戻さ な けれ 
ば な り ま せん . 

BASIC は 16 バ イト 分 の スタ ッ ク を 機械 語 プ ログ ラム 用 に 準備 し ます 。 機械 語 プ ログ ラム が それ 以上 
に スタ ッ ク を 使う 場合 , 機械 語 プ ログ ラム の 領域 に 別 の スタ ッ ク 領 域 を 確保 し て くだ さい 。 この と き , 
BASIC に 戻る 前 に SP を も と の 値 に 戻す こと を 忘れ な いで くだ さい . 


な お , USR 関数 で 機械 語 プ ログ ラム を 呼び 出し た と き に は , DS レジ スタ は 前 述 の とおり BASIC の ワー ク 
スペ ー ス の セグ メン ト 値 を 持っ て お り , ES, SS も DS と 同じ 値 に 設定 され て いま す 。 CS は DEF SEG 文 
で 指定 され た セグ メン ト 値 に な っ て いま す . 

DEF SEG 文 を 使わ ず に , USR 関数 を 使っ た 場合 , CS は DS, ES, SS と 同じ く BASIC の ワー クス ペー 
ス の セグ メン ト 値 に な り ま す . すなわち , DEF SEG 文 を 用 い ず に USR 関数 を 使っ た 場合 , その 機械 語 プ . 
ログ ラム は BASIC の ワー クス ペー ス と 同じ セグ メン ト に ある と みな され ます 。 


プロ グラ ムリ スト 
]W * 
20 ' USR 関 数 の サン プル プロ グラ ム 
2 頂 『 
40 ' 2 つの 文字 列 の 長 さ を 足し , C% に 代入 する 
50 * 
60 " 
70 ' 機械 語 プ ログ ラム は 3FCO:0000 番 地 か ら 
80 " 書き 込ま れる 
90 * 
100 DEF SEG=&H3FC0O 
110 ・ 
120 ' 機械 語 プ ログ ラム (1) を メモ リ に 書き 込む 
130 
140 DEF USR1=0 
150 FOR I=0 TO &HB 
160 READ A$:POKE I,VAL("&h"+AS) 
170 NEXT I 
180 ・ 
190 ' 機械 語 プ ログ ラム (2) を メモ リ に 書き 込む 
200 ・ 
210 DEF USR2=&H10 
220 FOR I=&H10 TO &H1B 
230 READ A$:POKE I,VAL("&h"+A$) 
240 NEXT 【I 
250 ・ - 
260 ' 機械 語 プ ログ ラム (3) を メモ リ に 書き 込む 
ン y4( 
280 DEF USR3=&H20 
290 FOR Ii=&H20 TO &H34 
300 READ A$:POKE I,VAL("&h"+A$) 
310 NEXT 【I 
320 " 
330 ' 文字 変数 へ ま の 長 さ を 求め る 
340 * 
350 A$= "Hi," 
360 C$=USR1 (A$) 
370 * 
380 ' 文字 変数 B ま の 長 さ を 求め る 
390 * 
400 B$= "How are you today?" 
410 D$ も =USR2(B$) 
420 * 
430 '′ 2 つの 文字 変数 の 長 さ の 合計 を 求め , A% に 代入 する . 
440 " 
450 A%=USR3(0 ) 
460 PRINT" 二 つの 文字 列 の 長 さ の 和 は " 
470 PRINT A% 
480 END 
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109 


110 


490 
500 
510 
520 


S530 


540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 


' 機械 語 プ ログ ラム (1 ) 
USR 関数 の 引数 (文字 ) の 長 さ を 100H 番 地 に し まう 


PUSH DS ji BAS IC の ワー クス ペー ス の 
セグ メン ト を 退避 する 
DATA 1E 


*′ MOV BX,DX j) スト リン グ デ ィ ス クリ プ タ の 番地 を 
* BX レ ジス タ に 人 れる 
DATA 89,D3 

*′ MOV AL, [BX] ?, 文字 列 の 長 さ を ALC 得 る 

DATA 8A,7 

* PUSH CS i) 機械 語 領域 の セグ メン ト 番 地 を DS に 人 れる 
DATA E 

′ POP DS 

DATA 1F 

′ MOV [100H],1 : 3FCO: 100H 番 地 に 
文字 列 の 長 さ を し まう 
DATA A2,0,1 


′ POP DS ) DS を も と に 戻す D 
DATA 1F 
” RETF ) BAS 1I CK に 戻る D 
DATA CB 


機械 語 プ ログ ラム (2) 
U SR 関数 の 引数 (文字 ) の 長 さ を 101H 番 地 に し まう 


PUSH DS ) BASIC の ワー クス ペー ス の セグ メン ト を 退避 する 
DATA 1E 

′ MOV BX,DX j: スト リン グ デ ィ ス クリ プ タ の 番地 を 

8 BX レ ジス タ に 人 入れ る 
DATA 89,D3 

*′ MOV AL, [BX] , 文字 列 の 長 さ を AL し に 得る 

DATA 8A,7 

* PUSH CS ij 機械 語 領域 の セグ メン ト 番 地 を DS に 人 れる 
DATA E 

′ POP DS 

DATA 1F 

) MOV [101H],1 : 3FECO: 101H 番 地 に 

9 文字 列 の 長 さ を し まう 


す 
す 
9 
き 


DATA A2,1,1 

* POP 05 ) DS を も と に 戻す 
DATA 1F 

′” RETF ) BAS 1 CC 戻る 
DATA CB 


940 『 


950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 


*′ 機械 語 プ ログ ラム (3) 

・ 100 番 地 の 値 と 1 0 1 番地 の 値 を 足し , USR 関 数 の 値 と する 
*・ PUSH DS : BAS 1 C の ワー クス ペー ス の 

セグ メン ト を 退避 する 
DATA 1e 

* PUSH CS : DS を 機械 語 領域 の 先頭 に 設定 する 
DATA e 

*′ POP DS 

DATA 1f 

′ MOV AL,[100H1: 文字 列 1 の 長 さ を AX に 入れ る 

DATA a0,0,1 
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1060 ' MOV AH,0 

1070 DATA b4,0 

1080 ' MOV CL,[101H]i 文字 列 1 の 長 さ を CX に 入れ る 
1090 DATA 8a,e,1,1 

1100 ' MOV CH,0 

1110 DATA b5,0 


1120 ' ADD AX,CX : それ ら を 加え る 

1130 DATA 1,c8 

1140 ' POP DS ) DS を BAS TIC の ワー クス ペー ス に 戻す 
1150 DATA 1f 

1160 ' MOV [BX+21,AX : 答え を FAC に 入れ る 

1170 DATA 89,47,2 

1180 ' RETF : BAS 1 CC に 戻る 


1190 DATA CB 


9.4 CALL 文 に よる 機械 語 プ ログ ラム の 呼び 出し 


機械 語 プ ログ ラム は CALL 文 を 使っ て 呼び 由 す こと も で きま す . 

CALL 文 は 任意 の 数 の 引数 を 機械 語 プ ログ ラム に 渡す こと が で きま す . 引数 は 。 そ の 変数 の 置か れ て いる 
オフ セッ ト 番 地 (VARPTR 関数 で 求め た と き の 番 地 と 同じ も の ) が , スタ ッ ク に 積ま れ て , 機械 語 プ ログ ラ 
ム に 渡さ れ ま す . CALL 文 が N 個 の 引数 を 持っ て いる と き , スタ ッ ク の 中 は 次 の よう に な っ て いま す 。 


BASIC へ の 戻り 番地 (4 バイ ト ) 


引数 N の オフ ャ ッ ト 番 地 (2 バイ ト ) 


引数 N 一 1 の オフ ャ ッ ト 番 地 (2 バイト) 


: SP 十 2*(N 一 |) 十 2〕 引数 2 の オフ セッ ト 番 地 (2 バ イト ) 


・SP 十 2※(N 一 |) 十 4] 引数 1 の オフ ャ ッ ト 番 地 (2 バイ ト ) 


CALL 文 で 呼び 出さ れ た 機械 語 プ ログ ラム が 値 を BASIC に 返す た な め に は , オフ セッ ト 番 地 で 示さ れ た 変 
数 の 内 容 を 直接 書き 変え て や り ま す ,. し た が っ て , CALL 文中 の 引数 の 並び の 中 に は 。 機械 語 プ ログ ラム か 
ら 返 され る 値 を 格納 する た め の 変 数 を 含め て お か な く て は な り ま せん , た だ し , 引数 が 文字 変数 の 場合 は , 
USR 関数 の 場合 と 同じ よう に その 変数 の 長 さ を 変え ん る こと と は で きま せん 。 

機械 語 プ ログ ラム か ら BASIC に 戻る と き に は , “FAR RET n 命令 を 使い ます . ここ で n は スタ ッ ク に 
積ま れ た 引数 の 並び の 長 さ で , 引数 の 数 が N 個 の と き に は n ニ 2*N に な り ま す . これ は スタ ッ ク か ら 引 数 
の 並び を 取り 除く た め に 必要 で す . 

前 節 で 述べ た USR 関数 を 使う と き の 注 意 事項 は すべ て CALL 文 で 呼ば れる 機械 語 プ ログ ラム に も 適用 
され ます . さら に , CALL 文 を 使う と き に は ,。 CATLL 文 が 機械 語 プ ログ ラム に 引数 の 数 。 型 に つい て 何ら の 
情報 も 渡さ な いこ と に 特に 注意 し て くだ さい . すなわち , CALL 文 で 渡さ れる 引数 の 数 と 型 は 機械 語 プ ロ 
グラ ム が 期待 する 引数 の 数 と 型 に 完全 に 一 致し て いる こと が 必要 で す 。 


上 間 


112 


プロ グラ ムリ スト 


110 
120 
130 
140 
150 


′ CALL 文 の サン プル プロ グラ ム 
′ 2 つの 文字 列 の 長 さ を 足し , A% に 代入 する 


機械 語 プ ログ ラム は 3FC0O:0000 番 地 か ら 書 き 込 まれ る 
DEF SEG=&H3FC0 


*・ 機械 語 プ ログ ラム を メモ リ に 書き 込む 


FOR I=0 TO &H1I9 
READ A$:POKE I,VAL("&h"+A$) 
NEXT 1 
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170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
425 
430 
440 
450 
460 


465 … 


470 
480 
490 
500 


5S05 


510 


' 文字 変数 ^ 人 $, BB を 準備 する 


A$= "Hi 5 『 
B$= "HOw are you today?『" 


′ 2 つの 文字 変数 の 長 さ の 合計 を 求め , A% に 代入 する 
CODE=0 

CALL CODE (A%,A$,B$) 

PRINT A% 

END 


横 械 語 プ ログ ラム (1 ) 
U SR 関数 の 引 雪 (文字 ) の 長 さ を 1 0 0 日 番地 に し まう 


MOV BP,SP  : BPC 引 数 リス ト の 先頭 番地 を いれ る 
j 引数 リス ト は 次 の よう に な っ て いる 


SS お ee 1 
り DS SB まま 1 お あの スル リウ グ が ルス 9 チタ へ ベ の ] 
6 | ポイ ンタ | 


| 
DS:SP+61AB の スト リン グ デ ィ ス クリ プ タ へ の | 
| ポイ ンタ 
| 


DS:SP+81A% へ の ポイ ンタ | 


% 


DATA 89,E5 
*′ MOV BX, LBP+4] j) B ま の スト リン グ デ ィ ス クリ プ タ の 番地 を 

B X だ いれ る 
DATA 8B,5E,4 

*′ MOV AL, [BX] : BB の 長 さ を AL に いれ る 

DATA 8A,7 

′ MOV BX,[BP+61 : AS の スト リン グ デ ィ ス クリ プ タ の 番地 を 

B X に いれ る 
DATA 8B,5E,6 
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520 ' MOV CL,[BX] ) AS の 長 さ を C し に いれ る 
530 DATA 8A,F 
540 ' MOV AH,0 5 AL, C し を ワー ド に 変換 する 


S50 DATA B4,0 
S60 ' MOV CH,0 
S570 DATA B5,0 


580 ' ADD AX,CX ) AS お と B$ の 長 さ を 加え る 

590 DATA 1,C8 

600 ' MOV BX,[BP+8] : A% の 番地 を BX に いれ る 

610 DATA 8B, 5E,8 

620 ' MOV [BX] ,AX ) 答え を A 守 に いれ る 

630 DATA 89,7 

640 ' RETEF 6 ) 引数 リス ト を スタ ッ ク か ら 取 り 除 き , 

645 " BAS 1 CC 戻る 


650 DATA CA,6,0 


9.5 VARPTR 関 数 


VARPTR 関数 は 指定 され た 変数 や ファ イル パッ ファ の 置か れん て いる オフ セッ ト 番 地 を 返し ます 。 この と 
き の セ グ メ ント は BASIC の ワー クス ペー ス の セグ メン ト と 同じ に な り ま す 。 
変数 は メモ リ 中 に 次 の よう に 格納 され て いま す 。 


① 整数 型 変数 
ーー 上 位 番 地 


1 
可変 長 VARPTR の 返す 番地 


変数 名 は 可変 長 で 次 の よう な 形式 で 格納 され て いま す . 


し | | | 7/「] 


変数 名 の 先頭 の 2 文字 (変数 名 の 長 さ )-2 残り の 容 数 名 (MSB= | ) 
変数 名 が | 文字 の と き は 変数 名 が 2 文字 
第 2 バイ ト は 0 以下 の と き は 0 


た と えば , “ABCD", “G” と いう 変数 名 は それ ぞ れ 次 の よう な 形 で 格納 され て いま す . 


| | mm : lmwlmlemlrlxl 
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し た が っ て 変数 A% が 100 の と き , A% の メモ リ 中 の 形式 は 次 の よう に な っ て いま す 。 


1 
VARPTR の 返す 番号 


② 単 精度 実数 型 変数 
ー 上 位 番地 


仮数 の 仮数 の 仮数 の 
EE 肖 本 当 天 本 の 天 本 の 天 評 が 7 
1 


可変 長 VARPTR の 返す 番地 


指数 , 仮数 の 内 部 表現 は 次 の と お り で す . 

〇 仮数 の 符号 指数 部 の MSB (0 で 正 , 1 で 負 ) 

⑥ 指 数 = (指数 部 の 下位 7 ピッ ト ) 一 64 

⑥ 仮 数 は 第 1 バイ ト の 左 に 小数 点 が ある と 仮定 し ます . 

た と えば , 変数 B! の 値 が 1.23456 の と き に は 。 その 変数 は メモ リ 中 で 次 の よう に な っ て いま す , 


還 人 ll 9 0 | 9 
1 
VARPTR の 返す 番地 


③ 倍 精 度 実数 型 変数 
つ 上 位 番地 


_- 仮数 の 仮数 の 仮数 の 
の 
ーーーーーーーーーーー" 1 


可変 長 VARPTR の 返す 番地 


た と えば 変数 DOUBLE # の 値 が ー1.2345678901234 の と き に は DOUBLE # は メモ リ 中 で 次 の よう に 
格納 され て いま す . 


VARPTR の 返す 番地 
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④ 文字 型 変数 
文字 列 の 置か れ て いる | 文字 列 の 置か れ て いる 
3 変数 名 文字 列 の 長 さ オフ セッ ト 番 地 の オフ セッ ト 番 地 の 
下位 8 ピッ ト 上 位 8 ピッ ト 
1 
VARPTR の 返す 番地 


VARPTR 関数 の 引数 が ファ イル 番号 の と き に は , VARPTR 関数 は その ファ イル の バ パッ ファ の オフ セッ 
ト 番 地 を 返し ます ,。 この バッ ファ の 最初 の 51 バ イト は BASIC の 作業 用 の 領域 と な っ て お り , ファ イル と の 
デー タ 入 出力 に 用 いら れる 領域 は VARPTR 関数 の 値 に 51 を 加え た 番地 か ら 始 まり ます , 
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第 10 章 


ファ イル の 階層 構造 


10.1 MS-DOS の ファ イル シス テム 


バージョン 2.0 以 前 の MS-DOS は ,。 フ ロッ ピー ディ スク に は 十分 な , 単 層 の ディ レク トリ 構造 を 持っ て い 
ます . し か し , メガ バイ ト 単 位 の 大 容量 の ハー ド デ ィ スク (5 て 20M バ イト ) を サポ ー ト する に は ,。 この よ 
うな 少な い デ ィ レ クト リ 数 で は 十分 と は いえ ませ ん . 

そこ で 。 も っ と 良い ファ イル 構造 の 必要 性 が 出 て 来 た わ け で す . 

た だ 単に ディ レク トリ を 大 きく と る だ け で は , あま り 効 果 的 な 解決 法 と は いえ ませ ん 例え ば , 1000 も の 
ファ イル が 1 つの ディ レク トリ 上 に ある と き に DIR? を 実行 し た 場合 の こと を 考え る と , と て も ユー ザー フ 
レン ドリ ー で ある と は いえ ませ ん . 

人 間 は , 生来 , 組織 図 や 家系 図 な どの よう な 階層 的 関係 で も の を 考え ます . で すか ら , ディ スク 上 の ファ 
イル も これ と 似 た よう な 方 法 で 組み 立て る こと が で きる と 良い で し ょ う 。 

例 を あげ て 考え て み ま す 。 

ある ビジ ネス で 。 販売 部 門 と 経理 部 門 が 大 容量 の ディ スク (名 前 を ヾ X” と し ます ) を 備え た 1 台 の コン 
ピュ ー タ を 共用 し , 各部 門 の 部 員 が , 販売 報告 の 準備 や , 経理 の 情報 整理 の た め に , その コン ピュ ー タ を 便 
う も の と し ます 。 その 時 ディ スク XX 上 の ファ イル の 構成 を , 次 の よう な 構造 に する の が , 自然 で し ょ う . 


佐 藤 田 中 . 赤 福 田 
ファ イル A ファ イル B ファ イル C ファ イル D ファ イル E ファ イル F 
バー ジョ ン 2.0 の MS-DOS で は この よう な 構成 を その まま ファ イル の 構成 と し て 組み 立て る こと が で き 


る よう に 改良 され まし た . そし て , Ni。。-BASIC で も その まま その ファ イル 構成 を 利用 する こと が で きる の で 
し 
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10.1.1 ディ レク トリ と パス 

N,。。-BASIC は , 例え ば 仕事 ご と の 単位 で ディ スク 上 の ファ イル を 仕分 けし て 格納 し て お く こ と が で 
きま す 。 つま り , 前 項 で 見 た よう に , 全体 の ファ イル を まず 部 員 ご と の 単位 で まとめ 。 さら に その 部 員 
を 部 署 ど と の 単位 で まとめ る よう な 構成 を ディ スク 上 で 実現 で きる の で す . この 場合 ,` 部 員 ? ご と , あ 
る い は い 部 署 " ご と に まとめ る た め に た , 各部 員 の 名 前 や 各部 署 の 名 前 を 使う こと に な り ま す が , この 名 
前 を パ デ ィ レ クト リン” と 呼び ます 。, 前 項 の 例 で 言え ば , “佐藤 ?, ` 三 木 ?、 “販売 ?。 経理 ” な ど は みな , 
ディ レク ト り と な り ま す 。 

ディ レク トリ の 中 に は , ファ イル は も ちろ ん , さら に 下位 の ディ レク トリ を 置く こと も で き , これ ら 
が 多数 重なっ て , 階層 構造 を 構成 する こと に な り ま す , この 場合 , い ちば ん 上 位 の 根 幹 と な る ディ レク 
トリ の こと を , “ルー トディ レク トリ と 呼び ます 。 

さき て , これ で ファ イル を 階層 的 に 構成 で きる こと は わか り ま し た が , これ ら の ファ イル に 対し て 読み 
書き (アク セス ) する た め に 必要 な も の が パス ” の 概念 で す , すなわち , 前 項 の 例 で , バディ スク 上 
の , 販売 部 の 佐藤 部 員 の レポ ー ト A” に アク セス する た め に は , 


ディ スク メー 販売 部 一 佐 藤 つ ファ イル A 
と いう 順に 見 て いく 必要 が ある わけ で す が , この ファ イル A に た どり つく まで の 道筋 を “パス * と 呼び , 
この パス を 正確 に 表現 する も の を パパス 名 ? と 呼び ます . この 場合 の パス 名 は , 

\ 販 売 部 \ 佐 藤 \ 


の よう に 道筋 を ^ 壮 "で 区 切っ て 表現 し ます . な お , いち ば ん 初め の “ 半 ? は ルー トディ レク トリ その 
も の を 表す シン ボル で す 。 

た だ この よう に いつ も ルー トディ レク トリ か らい ちい ち フ ァイル を 参照 する よう な 方 法 は , 正確 で は 
あっ て も 頻 雑 で す 。 そこ で 考え られ た の が パカ レン トディ レク トリ と 呼ば れる も の で す 。 すなわち , 
いっ た ん ある ディ レク トリ を 選択 し た ら , 以後 そこ を 中 心 に し て パス を 指定 する よう な 方 法 で す 。 例え 
ば , 前 項 の 例 で ` 佐 藤 * を カレ ント ディ レク トリ に 選ん だ と する と , ファ イル A へ の アク セス は , 単に , 


ファ イル A 
と すれ ば ぱ ば よく, 田中 氏 の ファ イル C へ アク セス し た か っ た ら 。 
. .\ 田 中 \* ファ イル C 


と すれ ば よい の で す . ここ で ^..? (ピリ オド 2 個 ) は , パ び ペ アレ ント ディ レク トリ ” すなわち カレ ント 
ディ レク トリ の 一 段階 上 位 の ア ィ レク トリ を 表す シン ボル で す ,。 これ に よれ ば ぱ ば, 現在 の 状態 (カレ ント 
ディ レク トリ が “佐藤 ?) か ら 経 理 部 の 福田 氏 の ファ イル F に アク セス する に は , 


・.\. .\ 経 理 部 \ 福 田 \ フ ァイル F 


と すれ ば よい こと に な り ま す 。, 
た だ し , この よう 記 遠 い 場所 に ある ファ イル を 参照 する に は , か えっ て ルー トディ レク トリ か ら の 指 
定 方 法 の 方 が よい か も し れ ま せん 。 次 の 例 , 


\ 経 理 部 \ 福 田 \ フ ァイル F 


は 上 の 例 と 同じ ファ イル F を アク セス する も の で す , 
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ルー トディ レク トリ か ら 参 照 す る 場合 は 。 カレ ント ディ レク トリ が どこ に 設定 され て いて も か まい ま 
せん 。 し た が っ て 。 


ルー トディ レク トリ か ら 参照 ……… 絶対 指定 
カレ ント ディ レク トリ か ら 参 照 …… 相 対 指定 


と ゆう と と が 言え ます 。 

な お , ルー トディ レク トリ の ペア レン トディ レク トリ は ,。 ルー トディ レク トリ 自身 で す . 

パス の 深 さ (ルー トディ レク トリ か ら 最 も 遠い 位置 に ある ディ レク トリ まで の パス の 長 さ ) に 制限 は 
あり ませ ん 。 ま た ユー ザー の 作成 し た ディ レク トリ 内 の ファ イル 数 に つい て も 制限 は あり ませ ん 。 

た だ し , ディ スク 上 の 容量 に 制約 が あり ます の で ,。 ディ レク トリ 数 。 ファ イル 数 に つい て , 自ずと 制 
限 が 生じ ます . 

また , ルー トディ レク トリ 中 の ファ イル 数 (ディ レク トリ も 含む ) に つい て は , メデ ィ ア ご と に 制限 
が あり ます の で 注意 し て くだ さい . 

詳細 に つい て は , MS-DOS プロ グラ マー ズリ ファ レン スマ ニュ アル を ご 覧 くだ さい 。 


10.1.2 ファ イル スペ ッ ク 

N,。。-BASIC で ファ イル を 扱う コマ ンド 。 ス テー トメ ント に お いて は , ファ イル を 指定 する た め に 
* フ ァイル スペ ッ ク ” を 用 いま す が , この ファ イル スペ ッ ク 中 に パス 名 を 含め る こと が で きま す , す な 
わ ち , ファ イル スペ ッ ク の 一 般 形 は 次 の よう に な り ま す 。 


【 く ドラ イブ 名 > : 〕 パス 名 >〕] < ファ イル 名 > 


< パス 名 > は 前 項 で 述べ た よう に , ファ イル の 格納 され て いる ディ レク トリ を 指し 示す 。 壮 で 区 切ら 
れ た 正しい 文字 列表 現 で な く て は な り ま せん 。 

く パス 名 > は 128 バ イト を 超え て は な り ま せん . も し 128 バ イト を 超え る と , `Bad file name" エラ ー が 
生じ ます . 

また 。 く ドラ イブ 名 > を 指定 する と き は 。 必 ずく < パス > の 前 に 置か な く て は いけ ませ ん 。 次 の 例 は 間違っ 
て いま す 。 


\SALES\B : \FILEA 


この よう な ファ イル スペ ッ ク を 指定 する と , “Bad file name” エラ ー が 生じ ます 。 

く < パス 名 > が 省略 され る と カレ ント ディ レク トリ (現在 選択 きれ て いる ディ レク トリ .CHDIR コマ ン 
ド で 選択 され る ) が 仮定 され ます ., 

く 〈 ド ライ ブ 名 > が 省略 され た と き は カレ ント ドラ イブ が 仮定 され ます . 
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10.1.3 ファ イル 操作 の た め の 命 令 
階層 構造 を も つ デ ィ レ クト リ に 格納 され て いる ディ スク ファ イル を , パス 名 を 含む ファ イル スペ ッ ク 
で 参照 する 命令 に は 。 次 の よう な も の が あり ます 。 


FILES ディ レク トリ 中 の ファ イル を リス ト し ます . 

KILL ファ イル を 削除 し ます 。 

NAME ファ イル 名 を つけ 換え ます 。 

LOAD BASIC プロ グラ ム フ ァ イル を ロー ド し ます . 

SAVE BASIC プロ グラ ム フ ァ イル を セー プ し ます . 

BLOAD パイ ナリ ファ イル を ロー ド し ます 。 

BSAVE バイ ナリ ファ イル を セー プ し ます . 

CHAIN 別 の BASIC プロ グラ ム に 制御 を 渡し ます . 

MERGE ディ スク 上 の BASIC プロ グラ ム フ ァ イル を , メモ リ 上 の プロ グラ ム と マー ジ し ま 
す . 

OPEN シー ケン シャ ルフ ァイル , ラン ダム ファ イル を 開き ます . 


これ ら の 命令 中 , NAME 文 , OPEN 文 な ど は パス 名 の 使用 に 制限 が あり ます 。. 詳し く は Ni,。。-BASIC 
リフ ァ レ ンス マニ ュ ア ル の 各 文 の 項 を ご 覧 くだ さい 。 


10.1.4 ディ レク トリ 操作 の た め の 命 令 
ディ レク トリ を 階層 的 に 作成 し た り , 削除 し た り , カレ ント ディ レク トリ を 移動 させ た りす る の に 必 
要 な 命令 と し て , 次 の よう な も の が あり ます 。 


MKDIR 新しい ディ レク トリ を 作成 し ます . 
RMDIR ディ レク トリ を 削除 し ます 。 
CHDIR カレ ント ディ レク トリ を 移動 きせ ます . 


各 命 令 の パラ メー タ と し て は , < ドラ イブ 名 >〉 と 参照 すべ さき デ ィ レ クト リ へ の パス を 示す 〈 く パス 名 >〉 を 
指定 し ます 。 く パス 名 > は 128 バ イト を 超え る こと は で きま せん , 〈 く ドラ イブ 名 >〉 が 省略 され た と き に は カ 
レン トド ライ ブ が 仮定 され ます . 

カレ ント ディ レク トリ は 。 各 ド ライ プ ご と に 設定 する こと が で きま す 。, 例え ば , ドラ イプ A に つい て , 


CHDIR *A : \BIN\DEMO* 
を 実行 し た の ち , ドラ イブ B に つい て 。, 
CHDIR *B : \ASC\TEST? 
を 実行 し た と し ます . 現在 の カレ ント ドラ イブ が ヾ A : ”? で ある と し て , パラ メー タ な し の FILES 文 , 
FILES 
を 実行 する と , “*A : BIN\DEMO” ディ レク トリ 中 の ファ イル が リス ト さ れ , 
FILES *B :? 


に 対し て は , “B : 壮 ASC 王 TEST” ディ レク トリ 中 の ファ イル が リス ト さ れ ま す 。 
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また , いっ た ん カレ ント ディ レク トリ が 設定 され る と , ドラ イブ を 移動 し て も その ドラ イブ ご と の ヵ 


レン トディ レク トリ が 動く こと は あり ませ ん 。 先 の 例 で , 
SHELL "日" 

を 実行 し カレ ント ドラ イブ を B : に 移動 し て か ら 。 
FILES 

を 実行 する と 。“B : 壮 ASC 壮 TEST" ディ レク トリ 中 の ファ イル が リス ト さ れ , 
FILES “Ai? 


を 実行 する と, ヾ A : 壮 BIN 壮 DEMO′ ディ レク トリ 中 の ファ イル が リス ト さ れる こと に な り ま す ., 
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第 11 草 


チャ イル ド プ ロ セ ス の サポ ボート 


11.1 SHELL 文 


SHELL 文 を 使っ て 。 BASIC プロ グラ ム の 実行 中 に 別 の プロ グラ ム (DOS 上 で 実行 可能 な プロ グラ ム ) を 
ロー ド , 実行 きせ る こと が で きま す 。 別 の プロ グラ ム の 実行 が 終わ る と , コン トロ ー ル は BASIC プロ グラ ム 
の SHELL 文 の 次 の 行 に も ちどり ます 。BASIC の コン トロ ー ル の 下 に 実行 きれ た プロ グラ ム は , パチ ャ イル ド 
プロ セス ” と し て 扱わ れ ま す . 


11.1.1 SHELL 文 の 書式 
SHELL 文 の 書式 は 以下 の と お り で す . 
SHELL 〔 く 文字 列 >〕 
ここ と で < 文字 列 > は 走ら ちせ る プロ グラ ム の ファ イル 名 と オプ ショ ン , パラ メー タ 。 引数 を 含ん で いる 正 
し い 文 字 列 表現 で す 。 
11.1.2 SHELL 文 の 動作 
SHELL 文 は , 次 の よう な 規則 に し た が っ て 動作 し ます 。 


(1) < 文字 列 > に 入る プロ グラ ム フ ァ イル 名 に は , 拡張 子 を つけ て お いた 方 が よい で し ょ う . な ぜ な ら 
ば ,。 そ れ が な いと コマ ンド プロ セッ サ が , COM ファ イル , EXE ファ イル , BAT ファ イル の 順に 
検索 し な く て は な ら な いか ら で す .。 も し 指定 し た ファ イル が 見 つか ら な いと \File not found 
error′” エ ラー が 生じ ます 。 


(2) プロ グラ ム の ファ イル 名 の 後ろ に 1 個 以上 の スペ ー ス が あけ られ て お か れ た 文字 列 は みな , オプ 
ショ ン , パラ メー タ あ る い は 引数 と し て と り 扱 われ ます 。 


(3) SHELL 文 に よっ て チャ イル ド プ ロ セ ス が 走っ て いる 間 , BASIC は メモ リ 上 に 残っ て いま す 。 
チャ イル ド プロセ ス が 終了 する と , 再び BASIC に 制御 が 戻り ます . 


(4) ^BASIC. EXE?。 すなわち BASIC 自身 に 対し て SHELL 文 を 実行 する こと は で きま せん 。 
BASIC を チャ イル ド プ ロ セ ス と し て 走ら せよ うと する と , BASIC は ロー ド の 前 に この こと を 
チェ ッ ク し ,。 次 の メッ セー ジ を 出し た 後 , ペア レン ト (BASIC) に も どり ます 。 


YYou cannot run BASIC as child of BASICY 


この 制限 は ,。 ペア レン ト の BASIC を 破 壌 し な いよ うに する た め の も の で す 。 
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(5) < 文字 列 > の 付い て いな い SHELL 文 を 実行 する と DOS の プロ ンプ ト が 出力 され , ユー ザー は 
DOS 上 の 操作 で あれ ば 何で も 行う こと が で きま す 。 BASIC に 戻る と き は DOS の 内 部 コマ ンド 
ヾ EXIT” を 使い ます , 


例 ) SHELL 
A>DIR[ 
A>EXIT[ 
Ok 


次 に 例 と し て DOS の “SORT” コマ ンド を SHELL 文 で 起動 し て デー タ の ソー ティ ング を 行っ て み ま 
し ぶ まう 、 


100 OPEN "SORTIN.DAT" FOR OUTPUT AS#1 
110 FOR Il=1 TO 100 

120 PRINT 1 ,RND( 1 ) 

130 NEXT 1 

140 CLOSE #1 

150 SHELL "SO0RT く SORTIN.DAT >S0RTOUT.DAT" 
160 OPEN "SO0RTOUT.DAT" FOR INPUT AS#1 
170 IF EOF(1) THEN END 

180 INPUT#1,A 

190 PRINT A 

200 GOTO 170 


1 を マー 
SHELL 文 の 実行 時 に 起 る 可能 性 の ある エラ ー と し て は , 次 の よう な も の が あり ます 。. 


*File not found/ 
く 文字 列 > で 指定 し た プロ グラ ム の ファ イル 名 (.EXE, .COM) が 見 つか り ま せん で し た . 


ゞ Out of Memory”/ 
チャ イル ド を 走ら せる の に 充分 な メモ リ 容 量 が あり ませ ん . 


*Can't continue after SHELLY 
BASIC を 続行 する た め の メ モリ 容量 が 不足 し て いま す 。 すべ て の ファ イル が 閉じ られ , BASIC は 
DOS に 戻り ます ,. これ は , チャ イル ド プロセ ス が , 実行 終了 後 も メモ リ 上 に と ど ま っ て し まっ て い 
る と き に 起り ます . 


Yinternal Error? 
DOS が 異常 を お こし て いま す . 
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11.1.4 チャ イル ド プ ロ セ ス の 使用 上 の 注意 

BASIC が チャ イル ド プ ロ セ ス か ら 自 分 自身 を 保護 する こと は , 完全 に は で きま せん . な ぜ な ら 。 
SHELL 文 が 実行 され る と, BASIC の コン トロ ー ル する 入 囲 外 の と ころ で 。 フ ァイル が 開か れ た り , 各 
種 の デパ イス が 使わ れ た り , と いう よう な じつに 多く の こと が 行わ れる か ら で す 。 以下 に チャ イル ド プ 
ロ セ ス が BASIC の 実行 環境 を 壊さ な いよ うに する た め の 対 策 に つい て 述べ ます 。 


(1) ハー ドウ ェ ア 


(3 


一 般 に , SHELL 文 実行 中 は , すべ て の ハー ドウ ェ ア は 保護 され た 状態 に ある 事 が の ぞ ま し ぃ の 
で す が , それ に は , \SHLSAV” と \SHLRST” と いう ハー ドウ ェ ア に 依存 する ロー レベ ル の ルー 
チン を チャ イル ド プ ロ セ ス 中 で 実行 する こと に より ,。 達成 する こと が で きま す 。 これ ら の ルー チ 
ン は , SHELL 文 の 実行 中 , 機械 の ステ ー タ ス 情 報 を , セー プ , レス ト ア する よう に する も の で す . 
また , ユー ザー は , SHELL 文 を 使っ て 実行 きれ て いる チャ イル ド プ ロ セ ス 内 で , 特定 の アパ イス 
を 使用 し な いよ うに する 必要 が あり ます . 

スク リー ン デ バイ ス (ディ スプ レイ ) の チャ イル ド プ ロ セ ス は , いろ いろ な スク リー ン モ ー ド 
を 変え て し まう こと が あり ます . と くに スク リー ン エ ディ タ が 破壊 さん る こと が よく あり ます の 
で 注意 し て くだ さい 、。 

他 の ハー ドウ ェ ア ア パイ ス , た と えば 割込み コン トロ ー ラ , タイ マー, DMA コン トロ ー ラ , 入 
出力 スイ ッ チ , UARTS な ど は BASIC に より ある 特定 の 状態 に お か れ ま す . これ ら の 機器 は , 
ュー ザー の 知り うる 範囲 欠 に お いて チャ イル ド プ ロ セ ス に よっ て 使用 3 れる こと が あり ます .。 す 
な わ ち ,。 ユー ザー が これ ら の デバ イス を 積極 的 に 使用 する こと を し な く て も , チャ イル ド プ ロ セ 
ス が 自動 的 に 使用 し て し まう こと が ある の で す . 


ファ イル シス テム 

BASIC (ペア レン ト ) 内 で ファ イル を 開け た まま に し て お く と , ファ イル に 操作 を 加え る よう 
な チャ イル ド プ ロ セ ス を 実行 し た と き , た い へ ん な 被害 を 被る こと が あり ます 。 ファ イル を チャ 
イル ド プ ロ セ ス で 操作 する 際 に は , SHELL 文 を 実行 する 前 に 必ず ファ イル を 閉じ , SHELL 文 の 
実行 後に BASIC (ペア レン ト ) に も どっ て きた ら , 再び 開く よう に し な く て は いけ ませ ん . 


メモ リ 管 理 

BASIC は SHELL 文 に より BASIC か ら 別 の コマ ンド へ 移る 前 に メモ リ を 開放 し よう と し ま 
す 。 例外 は プ M : スイ ッ チ つき で BASIC が 走ら され た 場合 で す , この 場合 BASIC は , ユー ザー 
が BASIC の メモ リプ ロッ ク の 上 限 の さら に 上 の 領域 に 何 か ロ ー ド する つも り で ある , と いう こ 
と を 〆/M : スイ ッ チ に よっ て 認識 する わけ で す . し た が っ て , BASIC が SHELL 文 の 実行 前 に 
ワー クス ペー ス を 圧縮 し て し まう 事態 を 防ぐ こと が で きま す . こ の た め , プ M : スイ ッ チ を 使う と 
SHELL 文 は “Out of memory” エラ ー を 起こ と すこ と も あり ます . 

チャ イル ド プ ロ セ ス は 決し て 実行 後 メ モリ 上 に 残っ て いる こと が あっ て は いけ ませ ん 。 も し そ 
う で ある と, BASIC が ワー クス ペー ス を 元々 の サイ ズ に 復帰 させ る た め の 充 分 な 場所 が な く 
な っ て し まい ます 。 BASIC が ワー クス ペー ス を リス ト ア で き な い と , ファ イル は すべ て 閉じ ら 
れ , “SHELL can't continue” と いう エラ ー メ ッ セ ー ジ が 出力 され て DOS に 制御 が も どり ます 。 
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11.2 ENVIRON 訪 


EN VIRON 文 に より , ユー ザー は , BASIC の 環境 文字 列 テ ー プ ル の パラ メー タ を 変え る こと が で きま す 。 
この 文 を 使っ て チャ イル ド プ ロ セ ス の パス” パラ メー タ を 変え た り , ある い は 又 ,。 新しい 環境 パラ メー タ 
を 作る こと に より , チャ イル ド プロセス に , パラ メー タ を 手渡 し た りす る こと が で きま す 。. 


11.2.1 ENVIRON 文 の 書式 
ENVIRON 文 の 書式 は 次 の と お り で す . 


ENVIRON く < パラメータ > 


ここ で <〈 く パラ メー タ > と は 新しい 環境 文字 列 パ ラメ ー タ を 含む 。 正しい 文字 列表 現 で す . 


11.2.2 ENVIRON 文 の 動作 
ENVIRON 文 は , 次 の よう な 規則 に し た が っ て 動作 し ます 。, 


(1) く パ ラメ ー タ > は < パラ メー タ 名 > 三 < 文字 列 > の 形 の 文字 列 で な く て は な り ま せん 。 また , 〈 パ ラメ ー 
タ > に 指定 する 文字 列 に は 。 すべ て 大 文字 の キャ ラク タ を 使用 し な けれ ば な り ま せん 。 


(2) ぐ パ ラメ ー タ 名 > は , 例え ば , “PATH7 の 様 な パラ メー タ の 名 前 で す . く < パ ラメ ー タ 名 > は ,。 例え ば , 
*PATH=? の 様 に バニ” か“ ? (スペ ー ス ) に よっ て < 文字 列 > か ら 分 離さ きれ て いる 必要 が あり 
ます . ENVIRON 文 は , 最初 の スペ ー ス また は “ ニ ” の 左側 に ある も の は すべ て 〈 く パラ メー タ 名 > 
と みな し ます <〈 バ パラ メー タ 名 > の 後に くる 最初 の バ ノ ン ・ ス ペー ス ” また は “ニー で な いも の ” が 
〈 文 字 列 > と みな され ます . 

(3) < 文字 列 >? は , 新しい パラ メー タ の テキ スト で す .。 も し く < 文字 列 > が , 空 で あっ た り , PATH ニ =:? 
の 様 に 「 : 」 (セミコロン) 1 個 ど ぼけ で あっ た りす る と , <〈 ぐ パラ メー タ > で 指定 され る パラ メー タ は , 
環境 文字 列 テ ー プ ブル か ら 取 り 去 られ ます . 


(4) ぐ パ ラメ ー タ 名 > で 指定 され る パラ メー タ が 存在 し な いと , < パラ メー タ > は 。 環境 文字 列 テ ー プ ブル 
の 最後 に 付け 加え られ ます . 


(5) く < パラ メー タ 名 > で 指定 され る パラ メー タ が も と も と あっ た と ころ に 。 同じ パラ メー タ 名 を 指定 す 
する と , 環境 文字 列 テ ー ブ プル は 圧縮 きれ , 新しい く パ ラメ ー タ > が その 終わ り に 付加 され ます 。 


(6) DOS の PATH コマ ンド ある い ぃ は SET コマ ンド で 確保 し た 環境 文字 列 テ ー プ ル の 大 き さ を 越え 
る 文字 列 を ENVIRON 文 で セッ ト し よう と する と , \Out of memory′ エラー に な り ま す 。 


(7) BASIC の 環境 文字 列 テー プル は , BASIC の 動作 中 に 限り 有効 で す ,。 し た が っ て , SHELL 文 に 
よっ て 実行 され る チャ イル ド プ ロ セ ス に 対し て の み ,。 その テー ブル の 内 容 が 有効 と な り ま す 。 


MS-DOS の 内 部 コマ ンド “PATH また は “SET′ に よっ て 変え られ て いな い 限 り , BASIC 環境 文 
字 列 テー プル は 空 で す . まず DOS 上 で 以下 の 文 を 使っ て , ディ スク A 上 の サ プ デ ィ レ クト リ に PATH 
を 作っ て み ま し ょ う 。 


PATH ニ A:\SECOND\THIRD 
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つぎ に BASIC を 起動 し ます . 
と こ で 。 次 の よう に する と パス が 新しい 値 に 変り ます 。 


ENVIRON “PATH ニ A : \ SALES? 
環境 文字 列 テ ー プ ル は 次 の よう に 変わ り ま す ., 
PATH ニ =A : \SALES 


PATH パラ メー タ は ENVIRON 文 と ENVIRON$ 関 数 を いっ し ょ に 使う と 。 アペンド (追加 ) する 
こと が で きま す 。 


ENVIRON “PATH=? 十 ENVIRON$("PATH") 十 ~: B:\ BLETCH? 
環境 文字 列 テ ー プ ル は 次 の よう に な り ま す 。 


PATH ニ A:\SALES: B: BLETCH 


11.2.3 エラ ー 
ENVIRON 文 の 実行 時 に 起 る 可能 性 の ある エラ ー と し て は , 次 の よう な も の が あり ます 。 


*Type mismatch* 
く < パラ メー タ > が 文字 列 で な いと き 生 じ ま す 。 


*Out of memory” 
環境 テー プル が 。 い っ ぱい で , これ 以上 割り 付け で き な い と き 生 じ ま す .。 


11.3 ENVIRON$ 関 数 


ENVIRON 関数 に より ユー ザー は BASIC の 環境 テー プル か ら , 指定 され た 環境 文字 列 を 検索 する こと と が で 
きま す . 


11.3.1 ENVIRONS 関 数 の 書式 
ENVIRON$ 関 数 の 書式 は 次 の と お り で す . 
ENVIRON$(〈 パ ラメ ー タ 名 >〉) 
また は , 
ENVIRON$ (< パラ メー タ 番 号 〉) 


< パラ メー タ 名 > は 検索 し た い パ ラメ ー タ の 名 前 を 表す 正しい 文字 式 表現 で す 。 
く < パラ メー タ 番 号 > は 1 か ら 255 の 飯 囲 の 整数 を 指定 し ます . 
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11.3.2 ENVIRONS 関 数 の 動作 
ENVIRON 関 数 は 、 次 の よう な 規則 に し た が っ て 動作 し ます . 


(1) パラ メー タ 名 > が 使わ れる と , ENVIRON$ は 環境 文字 列 テ ー ブ プル か ら , < パラ メー タ 名 > に 続く テ 
キス ト を 含む 文字 列 を 返し て きま す . 


(2) ぐ パ ラメ ー タ 名 >= が 見つから な いと き や , < パラ メー タ 名 >= ニ の 次 に テキ スト が な いと き は , ヌル 
スト リン グ を 返し ます 。 


(3) < パラ メー タ 番 号 > が 使わ れ た と き は , ENVIRON$ は , 文字 列 テ ー ブ ル か ら ぐ パラ メー タ 番 号 > 番 目 
の 環境 文字 列 を 返し ます 。 


DOS の 内 部 コマ ンド “PATH′ また は “SET” に よっ て 変え られ て いな けれ ば ぱ ば, BASIC の 初期 環境 
文字 列 は 空 で す (ENVIRON 文 の 所 を 参照 し て くだ さい )。 
ENVIRON 文 の 例 を 実行 する と 環境 文字 列 テ ー プ ブル は 次 の よう に な り ま す 。 


PATH ニ A:\SALES : A: \ACCOUNTING : B: \ BLETCH 
この 場合 次 の 文 を 実行 する と , 
PRINT ENVIRON$ (PATH?) 
次 の 文字 列 が 表示 され ます . 
A:\SALES: A:\ACCOUNTING: B:\ BLETCH 
そし て 次 の 文 は 。 
PRINT ENVIRONS$(1) 
次 の 文字 列 を 表示 し ます . 
PATH 三 A: \SALES: Ai \ ACCOUNTING: B \ BLETCH 


以下 に 示す プロ グラ ム は , BASIC 環境 文字 テー ブル を 配列 に セー プ し ,。 チャ イル ドブ プロ セス 用 に テー 
ブル を 書き 換え る よう に し た も の で す 。 チャ イル ド プ ロ セ ス の 実行 が 終わ る と 。 き さき に セー プレ し た 環境 
文字 列 を テー プル に リス ト ア ( 再 格納 ) し ます . 


第 11 章 チャ イル ド プ ロモ セス の サポ ー ト 


プロ グラ ムリ スト 
100 DIM ENV.TBLS(10) ーー・・ 10 Parm を こえ な いよ うに 
110 N.PARMS= 1 !・・・・・ P a rm の 初期 値 


120 WHILE LEN(ENVIRON$(N.PARMS ) ) >0 

130 ENV.TBLS(N.PARMS ) =ENVIRON$(N.PARMS ) 

140 N.PARMS=N.PARMS+ 1 0 誠 部 導 0 

150 WEND 

160 N.PARMS=N.PARMS- 1 

170 '"※※ 新しい ENVIRONMENT の スト ア ※※※ 
180 ENVIRON "MYCHILD.PARM1 =SORT BY NAME" 
190 ENVIRON "MYCHILD.PARM2=LIST BY NAME" 


4 
4 


1000 SHELL "MYCHILD" まま “MY CHILD. EXE” を 走ら せま す 
1010 FOR 1I=1 TO N.PARMS 

1020 ENVIRON ENV.TBLS(T) 「・・・・・ Pa rm の リス ト ア 

1030 NEXT 1 

11.3.3 エラ ー 


ENVIRON$ 関 数 の 使用 時 に 起 る 可能 性 の ある エラ ー と し て は , 次 の よう な も の が あり ます . 


Yllegal function call? 
べ パ ラメ ー タ 名 が 範囲 外 の 値 を と っ た と き 生 じ ま す . 


*Type mismatch? 
ぐ パ ラメ ー タ 名 > が 文 字 列 で な いと き 生 じ ま す . 


YString too long” 
文字 列 が 255 パ イト を こえ た とき 生じ ます . 
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付 録 


付 録 


コン トロ ー ル コー ド 表 


対応 する キー 機 


[ereli [HELP ]*ー と mt. 


回 


カー ソル の ある 位置 か ら そ の 行 の 最後 まで を 削除 する . 
カー ソル を 次 の ワー ド に 進め る . 

スピ ー カ を 鳴ら す 、 

カー ソル の 左 隆 り の 文字 を 消去 する . 

| Bs | ォ ー と 同じ . 


水平 タブ. | TAB | キー と 同じ . 


(途中 に 文字 が あっ て も 消去 し な い . ) 


| 


カー ソル を 行 の 最後 に 移す . 


重ね 書き モー ド と イン サー トモ ー ド の 切り 換え . 


表示 を 一 時 停止 する (再開 は 任意 の キー を 入力 する ). 


ファ ンク ショ ン キ ー を 表示 する . 
KEY ON 文 と 同じ . 


カー ソル の ある と ころ か ら 1 ワード 削除 する , 


ロー ル ア ッ プ . | SHIFT |+ | 1 | キー と 同じ . 
ロー ル ダ ウ ン 。 | SHIFT | + | 」 | キー と 同じ . 


カー ソル の ある 位置 以降 の 画面 に 表示 され て いる 男 囲 を 消 
去 す る . 


回 
回 
回 
回 
回 
回 
回 
[R| 
[ls] 


ミ 


IIE3MIEIIE 
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AN あて 


